Написание программы, которая будет рисовать волну .Wav файла и с уровнями, показывающими частоту сигнала

Private Declare Function mciSendString _
    Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
    ByVal ReturnString As String, _
    ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
    Dim Path As String
    Dim rs As String
    Dim cb As Integer
    Dim Status As Integer
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub cmdRecordStop_Click()
If cmdRecordStop.Caption = "Записать" Then
    cmdRecordStop.Caption = "Остановить"
    Command2.Enabled = False
        Call mciSendString("Open New Type waveaudio Alias capture", rs, 256, cb)
        Call mciSendString("record capture", rs, 256, cb)
Else
    cmdRecordStop.Caption = "Записать"
    Command2.Enabled = True
        Call mciSendString("Stop capture", rs, 256, cb)
        Call mciSendString("save capture " & Path, rs, 256, cb)
        Call mciSendString("Close capture", rs, 256, cb)
End If
End Sub
 
Private Sub Command1_Click()
    Call mciExecute("stop " & App.Path + "\1.WAV")
End Sub
 
Private Sub Command2_Click()
    Call mciExecute("play " & App.Path + "\1.WAV")
End Sub
 
Private Sub Form_Load()
    Path = App.Path + "\1.WAV"
    cmdRecordStop.Caption = "Записать"
    Command2.Caption = "Прослушать"
    Command2.Enabled = False
End Sub