Public Sub ZeichneOvale(Objekt As Object, PosX As Long, PosY As Long, Radius As _
  Long, Oval As Long, Farbe As Long)
   Objekt.Circle (PosX, PosY), Radius, Farbe, , , Oval
End Sub

---------
Lasst es nicht soweit kommen: http://www.againsttcpa.com