Private Sub cmd1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles cmd1.Paint
        Mal()
    End Sub
 
    Private Sub cmd2_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles cmd2.Paint
        Mal()
    End Sub
 
    Private Sub Mal()
        Dim g As Graphics = Me.CreateGraphics         
        If DoPaint Then
            Dim BC As New SolidBrush(BCol)
            g.Clear(Me.BackColor)
            Dim rect As RectangleF = New Rectangle(ctrlP.Left - BWidth, _
              ctrlP.Top - BWidth, ctrlP.Width + (BWidth * 2), ctrlP.Height + ( _
              BWidth * 2))
            g.FillRectangle(BC, rect)
            g.Dispose()
        Else
            g.Clear(Me.BackColor)
            g.Dispose()
        End If
    End Sub