PUBLIC oform1 SET CLASSLIB TO "h:\program files\microsoft visual foxpro 7\gallery\_webview.vcx" ADDITIVE oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (h:\temp\test0.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 08/08/03 10:38:03 PM * #INCLUDE "h:\temp\test.h" * DEFINE CLASS form1 AS form Top = 2 Left = 10 Height = 573 Width = 791 DoCreate = .T. Caption = "Form1" Visible = .T. Name = "Form1" myproperty = .F. numlstitm = .F. DIMENSION itemsel[1] ADD OBJECT oweb AS _webbrowser4 WITH ; Top = 54, ; Left = 6, ; Height = 516, ; Width = 780, ; ldebug = .T., ; Name = "oWeb" ADD OBJECT cmdgoback AS commandbutton WITH ; Top = 5, ; Left = 36, ; Height = 27, ; Width = 84, ; Caption = "Go Back", ; Enabled = .F., ; Name = "cmdGoBack" ADD OBJECT cmdgoforward AS commandbutton WITH ; Top = 6, ; Left = 132, ; Height = 27, ; Width = 84, ; Caption = "Go Forward", ; Enabled = .F., ; Name = "cmdGoForward" ADD OBJECT text1 AS textbox WITH ; Height = 26, ; Left = 246, ; Top = 7, ; Width = 426, ; Name = "Text1" ADD OBJECT cmdgo AS commandbutton WITH ; Top = 7, ; Left = 694, ; Height = 27, ; Width = 84, ; Caption = "Go", ; Name = "cmdGo" PROCEDURE cmdgoback.Click Thisform.oWeb.OBJECT.GoBack() ENDPROC PROCEDURE cmdgoforward.Click Thisform.oWeb.OBJECT.GoForward() ENDPROC PROCEDURE cmdgo.Click Thisform.oWeb.Navigate2(Thisform.text1.Value) ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************>All,