Простой аудиоплеер

Option Explicit
Dim file
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub Command1_Click()
End
End Sub
 
Private Sub Form_Load()
CDlg1.ShowOpen
file = CDlg1.FileName
Label1.Caption = file
sndPlaySound file, &H1 Or &H2
End Sub

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Dim Temp2 As Long
Dim Temp1 As String
Dim aFile As String
Dim file
 
Private Function GetShortName(ByVal fFileName As String) As String
  Dim bufTxt As String * 261
  Dim RetLen As Long
  RetLen = GetShortPathName(fFileName, bufTxt, 260)
  GetShortName = Left$(bufTxt, RetLen)
End Function
 
Private Sub Command1_Click()
Label2.Visible = True
Timer1.Enabled = True
aFile = file
aFile = GetShortName(aFile)
Temp1 = "play " & aFile
Temp2 = mciSendString(Temp1, 0, 0, 0)
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
Label2.Visible = False
aFile = file
aFile = GetShortName(aFile)
Temp1 = "close " & aFile
Temp2 = mciSendString(Temp1, 0, 0, 0)
End Sub
 
Private Sub Form_Load()
CDlg1.ShowOpen
file = CDlg1.FileName
Label1.Caption = file
End Sub
 
Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption + "."
If Label2.Caption = "Playing....." Then
Label2.Caption = "Playing"
End If
End Sub