Article ID: 196024
Article Last Modified on 10/15/2002
oTBar=CREATEOBJECT("mytoolbar")
oTBar.Show
READ EVENTS
DEFINE CLASS mytoolbar AS toolbar
Caption = "Toolbar1"
Height = 109
Left = 0
Top = 0
Width = 110
Name = "mytoolbar"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
OLECLASS="MSComCtl2.DTPicker.2",;
Top = 5, ;
Left = 5, ;
Height = 100, ;
Width = 100, ;
Name = "Olecontrol1"
ADD OBJECT cmdbtn1 AS COMMANDBUTTON
procedure cmdbtn1.click
clear events
endproc
ENDDEFINE
Keywords: kbbug kbctrl kbpending kbcode KB196024