Private Sub pbxFeld_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles pbxFeld.Paint
        Dim i, x, y As Integer
        Dim g As System.Drawing.Graphics = e.Graphics
 
        x = pbxFeld.Width - 1
        y = pbxFeld.Height - 1
        g.FillEllipse(Brushes.Goldenrod, 0, 0, x, y)
        g.DrawEllipse(Pens.Blue, 0, 0, x, y)
 
        g = Nothing
    End Sub