PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\temp\temp.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 09/09/01 09:22:05 AM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 574 Width = 793 DoCreate = .T. Caption = "Form1" WindowState = 2 Name = "Form1" PROCEDURE Init THIS.ADDOBJECT('cmdexit', "commandbutton" ) WITH THIS.cmdExit .TOP = 3 .LEFT = 745 .HEIGHT = 40 .WIDTH = 44 .FONTNAME = "MS Sans Serif" .FONTSIZE = 8 *!* Picture = "btnbmps\sclose.bmp", ; && standard button from VFP samples .PICTURE = "\temp\1MFORM1.bmp" && But, this is the bmp that Vlad sent. .CANCEL = .T. .CAPTION = "Koniec" .TABINDEX = 12 .TOOLTIPTEXT = "Zatvorenie okna" .NAME = "cmdExit" .VISIBLE = .T. ENDWITH ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************