Private Sub PicPaint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs)
        Dim pic = CType(sender, PictureBox)
        Dim gra As Graphics = e.Graphics
 
        With pic.ClientRectangle
            'pic.BackColor = Color.Yellow
            gra.Clear(Color.Blue)
            gra.DrawRectangle(Pens.Green, New Rectangle(0, 0, .Width - 1, _
              .Height - 1))
        End With
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist