'----
'Method 1: API call "PlaySound":
Private Const SND_LOOP = &H8 ' play over & over
Private Const SND_ASYNC = &H1 ' allow code to continue running
Private Const SND_NOSTOP = &H10 ' do not play if another sound is active
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
     (ByVal lpszName As String, ByVal hModule As Long, _
     ByVal dwFlags As Long) As Long
Private strSoundPath As String

Private Sub Command1_Click()
Dim x As Long
x = PlaySound(strSoundPath, 0, SND_ASYNC Or SND_NOSTOP)
End Sub

'Method 2: API call "sndPlaySound":
Private Const SND_LOOP = &H8 ' play over & over
Private Const SND_ASYNC = &H1 ' allow code to continue running
Private Const SND_NOSTOP = &H10 ' do not play if another sound is active
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
     (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command2_Click()
Dim x As Long
x = sndPlaySound(strSoundPath, SND_ASYNC Or SND_NOSTOP)
End Sub

'Method 3: API call "mciExecute":
Private Declare Function mciExecute Lib "winmm.dll" _
     (ByVal lpstrCommand As String) As Long
Private Sub Command3_Click()
Dim x As Long
x = mciExecute("Play " & strSoundPath)
End Sub
'----

'----
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub cmdRecordFromCD_Click()            ' RECORD WAV
Dim i As Long, RS As String, cb As Long, t#
On Error Resume Next
RS = Space$(128)
Kill "c:\cdtest.wav"
cmdPlayCD.Value = True
i = mciSendString("open new type waveaudio alias mywav", RS, 128, cb)
i = mciSendString("record mywav", RS, 128, cb)
t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop
i = mciSendString("stop mywav", RS, 128, cb)
i = mciSendString("save mywav c:\cdtest.wav", RS, 128, cb)
i = mciSendString("close mywav", RS, 128, cb)
cmdStopCD_Click
On Error GoTo 0
End Sub

>>> 16bit stereo @ 22KHz
"set mywav time format ms format tag pcm channels 2 samplespersec 44100
bytespersec 176400 alignment 4 bitspersample 16"

>>> 16bit mono @ 22kHz <--- use this one, it's the best
"set mywav time format ms format tag pcm channels 1 samplespersec 44100
bytespersec 22050 alignment 1 bitspersample 16"

>>> 8bit mono @ 11kHz
"set mywav time format ms format tag pcm channels 1 samplespersec 11025
bytespersec 11025 alignment 1 bitspersample 8 "

Изменение имени компьютера

'----
'Add this code to the module:

Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As _String) As Long

'Add this code to the command button:

Private Sub Command1_Click()
a$ = Text1.Text
b& = SetComputerName(a$)
End Sub
'----