When you press "Go", does anyone know why it says "Unhandled Exception: Unhandled Memory Exception Error"?:
Strict Local window2:TGadget Local filemenu:TGadget Local window:TGadget Local htmlview:TGadget Local textfield:TGadget Local go:TGadget Const MENU_BACK=101 Const MENU_FORWARD=102 Const MENU_EXIT=103 window=CreateWindow("Surfer",30,20,900,940,,15|WINDOW_ACCEPTFILES) filemenu=CreateMenu("&File",0,WindowMenu(window)) CreateMenu"&Back",MENU_BACK,filemenu,key_b,MODIFIER_COMMAND CreateMenu"&Forward",MENU_FORWARD,filemenu,key_f,MODIFIER_COMMAND CreateMenu"",0,filemenu CreateMenu"&Exit",MENU_EXIT,filemenu,MODIFIER_COMMAND htmlview=CreateHTMLView(0,21,ClientWidth(window),ClientHeight(window),window) SetGadgetLayout htmlview,1,1,1,1 HtmlViewGo htmlview,"www.knology.net/peabraininc" 'window2=CreateWindow("Address",30,20,300,150,,15|WINDOW_ACCEPTFILES) textfield=CreateTextField(0,0,300,20,window) go=CreateButton("Go",301,0,30,20,window,BUTTON_OK) SetGadgetText textfield,"www.knology.net/peabraininc" UpdateWindowMenu window While WaitEvent() ShowGadget(go) ShowGadget(textfield) 'Print CurrentEvent.ToString() Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_MENUACTION Select EventData() Case MENU_BACK HtmlViewBack(htmlview) Case MENU_FORWARD HtmlViewForward(htmlview) Case MENU_EXIT End End Select Case EVENT_GADGETACTION Select EventSource() Case go HtmlViewGo(htmlview,TextAreaText(textfield)) End Select End Select Wend