dim Rct1 as new rectange(10,10,20,20) dim Rct2 as new rectange(me.width-30,me.height-30,20,20) using G as graphics=me.creategraphics G.DrawRectange(Brush.Black,Rct1) G.DrawRectange(Brush.Black,Rct2) G.DrawLine(Red,Rct1.X+Rect1.Width/2,Rct1.Y+Rect1.Height/2,Rct2.X+Rect2.Width/2,Rct2.Y+Rect2.Height/2 end using
dim Rct2 as new rectange(me.width-30,me.height-30,20,20)
using G as graphics=me.creategraphics
G.DrawRectange(Brush.Black,Rct1)
G.DrawRectange(Brush.Black,Rct2)
G.DrawLine(Red,Rct1.X+Rect1.Width/2,Rct1.Y+Rect1.Height/2,Rct2.X+Rect2.Width/2,Rct2.Y+Rect2.Height/2
end using