Private Sub Zeichnen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Zeichnen.Click
        Dim g As Graphics = Me.Panel1.CreateGraphics
        g.FillRectangle(New SolidBrush(Color.Black), 20, 20, 50, 50)
    End Sub