Private Sub tabAblauf_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles tabAblauf.Paint
        Dim yellowBrush As New SolidBrush(Color.Yellow)
        Dim redBrush As New SolidBrush(Color.Red)
        Dim gr As Graphics = e.Graphics
        Dim shape1 As New Rectangle(10, 8, 15, 15)
        gr.DrawEllipse(New Pen(Color.Black, 2), shape1)
        gr.FillEllipse(redBrush, shape1)
End Sub

Public Sub FillEllipseRectangle(ByVal Rect As Rectangle, ByVal Brush As _
  SolidBrush, ByVal e As PaintEventArgs)
        e.Graphics.FillEllipse(Brush, Rect)
End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim yellowBrush As New SolidBrush(Color.Yellow)
        Dim shape1 As New Rectangle(10, 8, 15, 15)
        FillEllipseRectangle(shape1, yellowBrush, ?WasHierHin?)
End Sub