private r as rectanglef
private m_image as image = image.fromfile("g:\picture.bmp")
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
try
r = new rectanglef(0, 0, me.clientsize.width, me.clientsize.height)
catch ex as exception
messagebox.show(ex.message)
end try
end sub
private sub mydrawimage()
try
dim g as graphics = me.creategraphics
g.drawimage(m_image, r)
g.dispose()
catch ex as exception
end try
end sub
private sub form1_paint(byval sender as object, byval e as system.windows.forms.painteventargs) handles mybase.paint
mydrawimage()
end sub
private sub form1_resize(byval sender as object, byval e as system.eventargs) handles mybase.resize
r = new rectanglef(0, 0, me.clientsize.width, me.clientsize.height)
mydrawimage()
end sub
