Public Sub malen(ByVal e As System.Windows.Forms.PaintEventArgs)
 
Dim g As Graphics = e.Graphics
        Dim mybrush As Brush
 
        mybrush = New SolidBrush(Color.Red)
        g.FillRectangle(mybrush, 10, 10, 200, 60)
 
End Sub

call malen()