Frank007

Option Explicit Private Sub Form_Load() Turtle Form1, 0, 120, 0, 80 Pu Bk 10 Pd End Sub Private Sub Command1_Click() Dim i As Integer Fori=0To40 Rechteck i Rt 360 / 40 Warte 1 Next i End Sub Sub Rechteck(ByVal x As Single) Dim i As Integer Fori=1To2 Fd x Rt 90 Fdx/2 Rt 90 Next End Sub