**** Creation of a outlook like toolbar SET CLASSLIB TO Outlook.vcx ADDITIVE PUBLIC MyToolBar MyToolBar=CREATEOBJECT('toollook') MyToolBar.Show() ************************************************** *-- Class: toollook *-- ParentClass: toolbar *-- BaseClass: toolbar * DEFINE CLASS toollook AS toolbar Caption = "Out-Look!" Height = 222 Left = 0 Top = 0 Width = 83 Name = "toollook" ADD OBJECT outlook1 AS outlook WITH ; Top = 5, ; Left = 5, ; Height = 213, ; captions = "Click the button!;And this one...;This one to!", ; commands = ('wait wind "Hi, how are you?" nowait;wait wind "Not so bad..." nowait;wait wind "And you?" nowait'), ; pictures = "trash.bmp;folder.bmp;folder.bmp", ; buttoncount = 3, ; Name = "Outlook1", ; Label1.Name = "Label1" ENDDEFINE * *-- EndDefine: toollook **************************************************HTH :0)