'WebRequest1 is a WebRequest object, WebResponse is a WebResponse object (HTTP)
'obj is an Object (Door library), args is an ObjectArray (Door)
Sub Globals
End Sub
Sub App_Start
Form1.Show
WebRequest1.New1("http://www.b4x.com/images/desktop.jpg")
WebResponse.New1
obj.New1(false)
args.New1(1)
WebResponse.Value = WebRequest1.GetResponse
args.SetObject(0,WebResponse.GetStream) '
obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,args.Value)
Form1.Image = obj.Value
End Sub