ZeichneOvale picGrafik, picGrafik.ScaleWidth \ 2, picGrafik.ScaleHeight \ _
        2, _
    .txtDurchmesser.Text / 2, 2, vbBlack
 
Private Sub ZeichneOvale(Objekt As Object, PosX As Long, PosY As Long, Radius _
  As Long, Oval As Long, Farbe As Long)
  Objekt.FillStyle = 0
  Objekt.FillColor = vbBlack
  Objekt.Circle (PosX, PosY), Radius, Farbe, , , Oval
End Sub

    ZeichneLine picGrafik, picGrafik.ScaleWidth \ 2, picGrafik.ScaleHeight \ 2 _
      - (.txtDurchmesser.Text / 2), _
    .txtLaenge.Text, picGrafik.ScaleHeight \ 2 - (.txtDurchmesser.Text / 2), _
    vbRed
 
Private Sub ZeichneLine(Objekt As Object, StartPosX As Long, StartPosY As Long, _
  EndePosX As Long, EndePosY As Long, Farbe As Long)
  Objekt.Line (StartPosX, StartPosY)-(EndePosX, EndePosY), Farbe
End Sub

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