	Pro cbar_test 
       colorbar = Obj_New("COLORBAR", vertical = 1, Title='', Major=1, Format='(I4)') 
       Window 
 ;     LoadCT, 5 
       colorbar->Draw 
       colorbar->SetProperty, position = [0.7,0.2,0.73,0.5], Range=[0,100], /Erase, /Draw 
       Obj_Destroy, colorbar 
; 
;    thisColorBarObject = Obj_New('HColorBar') 
;    plotView->Add, thisColorBarObject 
;    tv, thisColorBarObject 
;    plotWindow->Draw, plotView 
 
	end