Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
        Dim g As Graphics = e.Graphics
        Dim SBrush As New System.Drawing.SolidBrush _
          (System.Drawing.Color.Red)
        g.DrawRectangle(Pens.Red, 2, 2, 70, 40)
        g.FillRectangle(SBrush, 2, 2, 70, 40)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
                Form1_Paint(sender, e) 
End Sub