http://homepage.mac.com/tuyano/VBNetTutor/VBNetTutor3.html
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button1.Click
Dim g As Graphics
Dim p As Pen
Dim b As SolidBrush
Dim r1, r2 As Rectangle
g = PictureBox1.CreateGraphics
p = New Pen(Color.Red)
b = New SolidBrush(Color.Blue)
r1 = New Rectangle(10, 10, 50, 50)
g.DrawEllipse(p, r1)
r2 = New Rectangle(70, 70, 50, 50)
g.FillRectangle(b, r2)
End Sub
のようにすると、図形は描画できるのですが、別のウィンドウが重なっただけで消えてしまいます
我慢すれば無理やり作れないこともないのですが、実用には耐えません

こういう時はどういう風にするものなのでしょうか？