Сделать волну на ВБ6, например синусоид

Option Explicit
Dim r As Single
 
Sub Draw(r)
Dim x As Single, y As Single, col As Long
    Cls
    For x = -8 To 8 Step 0.03
        y = 3 * Sin(x + r)
        'Circle (x - 1.5, y - 3), 0.05, vbBlue
        'Circle (x + 1.5, y + 3), 0.05, vbBlue
        col = RGB(Abs(y * 50), Abs(y * x), Abs(y * x * 20))
        Me.ForeColor = col
        Line (x - 1.5, y - 3)-(x + 1.5, y + 3)
    Next x
End Sub
 
Private Sub Command1_Click()
    Do
       If r > -6.28 Then r = r - 0.05: DoEvents Else r = 0
       Draw (r)
    Loop
End Sub
 
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    Me.DrawWidth = 5
    Me.BackColor = vbWhite
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Scale (-10, 10)-(10, -10)
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub

Option Explicit
Dim r As Single
 
Sub Draw(r)
Dim x As Single, y As Single, col As Long
    Cls
    For x = -8 To 8 Step 0.03
        y = 3 * Sin(x + r)
        'Circle (x - 1.5, y - 3), 0.05, vbBlue
        'Circle (x + 1.5, y + 3), 0.05, vbBlue
        col = RGB(Abs(y * 50), Abs(y * x), Abs(y * x * 20))
        Me.ForeColor = col
        Line (x - 1.5, y - 3)-(x + 1.5, y + 3)
    Next x
End Sub
 
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    Me.DrawWidth = 5
    Me.BackColor = vbWhite
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Timer1.Interval = 50
    Timer1.Enabled = True
    Me.Scale (-10, 10)-(10, -10)
End Sub
 
Private Sub Timer1_Timer()
       If r > -6.28 Then r = r - 0.05: DoEvents Else r = 0
       Draw (r)
End Sub

Option Explicit
Dim r As Single
Sub Draw(r)
Dim x As Single, y As Single, col As Long
     Cls
    For x = -3 To 3 Step 0.03
        y =  Sin(x + r) 
         Scale (-x / 2 - 10, 10)-(x + 9, -10 + y / 2)
         ForeColor = RGB(Abs(200 * (y / 3 + 1)), 0, 0)
         Line (x - 1, y - 3)-(x - 0.5, y - 1)
         ForeColor = RGB(0, 0, Abs(200 * (y / 3 + 1)))
         Line (x - 0.5, y - 1)-(x, y + 1)
         ForeColor = RGB(Abs(200 * (y / 3 + 1)), Abs(200 * (y / 3 + 1)), Abs(200 * (y / 3 + 1)))
         Line (x, y + 1)-(x + 0.5, y + 3)
    Next x
End Sub
 
Private Sub Form_Load()
     AutoRedraw = True
     ScaleMode = 3
     DrawWidth = 3
     Timer1.Interval = 50
     Timer1.Enabled = True
     Scale (-10, 10)-(10, -10)
End Sub
 
 
Private Sub Timer1_Timer()
    If r > -6.28 Then r = r - 0.05  Else r = 0
    Draw (r)
End Sub