Publi oform oform=Newobject("asup") oform.Show Read Events Retu * Define Class asup As Form Top = 1 Left = 17 Height = 442 Width = 725 ShowWindow = 2 Caption = "Form1" Name = "Form1" Add Object olecontrol1 As OleControl With ; oleclass="shell.explorer.2",; Top = 2, ; Left = 1, ; Height = 394, ; Width = 721, ; Anchor = 15, ; Name = "Olecontrol1" Add Object command1 As CommandButton With ; Top = 413, ; Left = 300, ; Height = 27, ; Width = 120, ; Anchor = 768, ; Caption = "Open excel file", ; Name = "Command1" Procedure command1.Click Local m.x m.x=Getfile('xls') *m.x="file:///"+m.x Thisform.olecontrol1.Navigate(m.x) Endproc Procedure Destroy Clea Events Endproc Enddefine * *-- EndDefine: