Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        x = t_x.Text
        y = T_y.Text
 
        'Wir erstellen ein Neues Bild mit der Größe x*y
        Dim B As New Bitmap(x, y)
        'Um auf das Bild etwas zu malen, erstellen wir ein GraphicsObject
        Dim g As Graphics = Graphics.FromImage(B)
        g.FillRectangle(New SolidBrush(Color.Red), New Rectangle(0, 0, x, y))
        g.DrawRectangle(New Pen(Color.Black), New Rectangle(0, 0, x, y))
 
 
        If Panel1.Height < y Then
            Panel1.Height = Panel1.Height + y
        End If
        If Panel1.Width < x Then
            Panel1.Width = Panel1.Width + x
        End If
 
        'Speicher frei machen
        g.Dispose()
 
 
 
 
    End Sub

signaturen find ich bl?de