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

Формулировка задачи:

Решил сделать очень простой аудиоплеер:

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

Открывается окно CommonDialog, пользователь выбирает звук и играет его. Если хочет остановить, жмет на кнопку с надписью "Стоп" (Command1). Путь звукового файла при этом выводиться в Label1. Но так как я новичок, то есть вопросы: 1. Как сделать, чтобы после окончания звука программа сама закрывалась сразу? 2. Как сделать, чтобы если пользователь ставил программу сразу как стандартную для аудио, при открытии она сразу его играла (сейчас открывается опять окно выбора) 3. Играет это только файлы WaveAudio. А как же другие форматы?

Решение задачи: «Простой аудиоплеер»

textual
                            Листинг программы 
                        

                            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
                        