Dim x0, x1, y0, y1, z0, z1, a, b, c, u As Single
Dim n As Integer
Dim coloreaza As Integer
Private Sub Command1_Click()
If coloreaza = False Then
 coloreaza = True
 Command1.Caption = "Opreste-te"
 color
Else
 Command1.Caption = "Incepe"
 coloreaza = False
End If
End Sub

Private Sub Form_Load()
 coloreaza = False
End Sub

Sub color()
h = 0.01
a = 10
b = 28
c = 8 / 3
n = 0
x0 = 0
y0 = 1
z0 = 0
u = Text1.Text
Do While coloreaza = True
 x1 = x0 + h * a * (y0 - x0)
 y1 = y0 + h * (x0 * (b - z0) - y0)
 z = z0 + h * (x0 * y0 - c * z0)
 x0 = x1
 y0 = y1
 z0 = z1
 xx = x0 * Cos(u) - y0 * Sin(u)
 Picture1.Line -(xx, z0), vbRed
Loop
End Sub