Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim g As Graphics
        g = myPictureBox.CreateGraphics
        g.DrawRectangle(Pens.Black, 0, 0, 100, 100)
        g.Dispose()
    End Sub