Private Sub DrawSinus(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, _
  ByVal y2 As Long, _
                      intFrequence As Integer, lngAmplitude As Long)
    Const Pi As Long = 3.141592654
    Dim i               As Long
    Dim x               As Long
    Dim y               As Long
 
    For i = x1 To x2
        x = i
        If i = x1 Then
            y = y1
            picPaint.Line (x, lngAmplitude \ 2)-(x, y + lngAmplitude / 2)
        Else
            y = Sin(i / x2 * 360 * intFrequence * Pi / 180) * (lngAmplitude \ 2 _
              - 6)
            picPaint.Line -(x, y + lngAmplitude / 2)
        End If
    Next i
End Sub