version 6.50 1 Form2 Form1 838 468 C:\WINDOWS\accessories.ico 2 Door.dll HTTP.dll 2 Door.dll HTTP.dll 4 WebRequest:WebRequest WebResponse:WebResponse objArray:ObjectArray obj:Object 0 Sub designer addform(Form2,"Detroit","",220,220,220)@ addimagebutton(form2,ImageButton7,5,5,830,460,"",212,208,200,0,0,0,"cStretchImage","",True,True,True,9)@ addform(Form1,"Detroit","",220,220,220)@ addimagebutton(form1,ImageButton4,10,235,270,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addimagebutton(form1,ImageButton5,280,235,270,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addimagebutton(form1,ImageButton6,545,235,280,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addimagebutton(form1,ImageButton3,550,10,275,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addimagebutton(form1,ImageButton2,280,10,275,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addimagebutton(form1,ImageButton1,10,10,275,220,"",212,208,200,0,0,0,"cCenterImage","",True,True,True,9)@ addtimer(form1,Timer1,390,420,500)@ End Sub @EndOfDesignText@ Sub Globals End Sub Sub App_Start Form1.Show Timer1.Interval = 300000 'milliseconds Timer1.Enabled = True WebResponse.New1 obj.New1(False) objArray.New1(1) ShowImage("http://i.imwx.com/web/radar/us_dtw_closeradar_plus_usen.jpg") ShowImage2("http://i.imwx.com/images/maps/current/cur_ne_720x486.jpg") ShowImage3("http://i.imwx.com/images/maps/current/ne_curtemp_720x486.jpg") ShowImage4("http://i.imwx.com/images/maps/special/severe_ne_600x405.jpg") ShowImage5("http://i.imwx.com/images/maps/forecast/ne_precfcst_600x405.jpg") ShowImage6("http://i.imwx.com/web/forecast/us_ne_9regwxhi1_large_usen.jpg") End Sub Sub ShowImage (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton1.Mode = cStretchImage ImageButton1.Image = obj.Value End Sub Sub ShowImage2 (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton2.Mode = cStretchImage ImageButton2.Image = obj.Value End Sub Sub ShowImage3 (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton3.Mode = cStretchImage ImageButton3.Image = obj.Value End Sub Sub ShowImage4 (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton4.Mode = cStretchImage ImageButton4.Image = obj.Value End Sub Sub ShowImage5 (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton5.Mode = cStretchImage ImageButton5.Image = obj.Value End Sub Sub ShowImage6 (URL) WebRequest.New1(URL) WebResponse.Value = WebRequest.GetResponse 'Download the image objArray.SetObject(0,WebResponse.GetStream) obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,objArray.Value) 'Create a bitmap image from the 'data stream. Imagebutton6.Mode = cStretchImage ImageButton6.Image = obj.Value End Sub Sub Timer1_Tick Form1.Text = (Time (Now)) App_Start End Sub Sub ImageButton1_Click Form2.Show ImageButton7.Image = ImageButton1.Image End Sub Sub ImageButton2_Click Form2.Show ImageButton7.Image = ImageButton2.Image End Sub Sub ImageButton3_Click Form2.Show ImageButton7.Image = ImageButton3.Image End Sub Sub ImageButton4_Click Form2.Show ImageButton7.Image = ImageButton4.Image End Sub Sub ImageButton5_Click Form2.Show ImageButton7.Image = ImageButton5.Image End Sub Sub ImageButton6_Click Form2.Show ImageButton7.Image = ImageButton6.Image End Sub Sub ImageButton7_Click Form2.Close End Sub