Лабораторная работа: Audio recorder on visual basic

pos = CStr (Position)

i = mciSendString ("set capture time format ms", 0&, 0, 0)

If i <> 0 Then MsgBox ("Setting format in milliseconds failed!")

i = mciSendString ("play capture from " & pos, rtn, Len (rtn), 0)

If i <> 0 Then MsgBox ("Playing from indicated position failed!")

If i <> 0 Then MsgBox ("Play from position doesn't work... ")

End Sub

Interface in Action