UN LECTEUR DE .WAV

'form1
Private Sub Form_Load()
MMControl1.AutoEnable = False
MMControl1.PlayEnabled = True
MMControl1.PlayVisible = True
End Sub

Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "close"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"

End Sub

Private Sub ouv_Click()
Load Form2
Form2.Show
End Sub

Private Sub quit_Click()
End
End Sub

Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
If Line3.Y2 > 0 Then
Line3.Y2 = Line3.Y2 + 500
Line4.Y2 = Line4.Y2 + 500
Else: Line3.Y2 = 2520
Line4.Y2 = 2520
End If
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
If Line3.Y2 > 0 Then
Line3.Y2 = Line3.Y2 - 1000
Line4.Y2 = Line4.Y2 - 1000
Else: Line3.Y2 = 2520
Line4.Y2 = 2520
End If
End Sub

Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
If Line2.X2 > 1200 Then
Line1.X2 = Line1.X2 + 200
Line2.X2 = Line2.X2 + 200
Else: Line2.X2 = 1920
Line1.X2 = 4320
End If
End Sub

Private Sub Timer4_Timer()
Timer3.Enabled = True
Timer4.Enabled = False
If Line2.X2 > 1200 Then
Line1.X2 = Line1.X2 - 300
Line2.X2 = Line2.X2 - 300
Else: Line2.X2 = 1920
Line1.X2 = 4320
End If
End Sub

Private Sub Timer5_Timer()
Timer6.Enabled = True
Timer5.Enabled = False
Shape3.Left = 2640
Shape4.Left = 3240
End Sub

Private Sub Timer6_Timer()
Timer5.Enabled = True
Timer6.Enabled = False
Shape3.Left = 2160
Shape4.Left = 3720
End Sub

Private Sub Timer7_Timer()
Timer8.Enabled = True
Timer7.Enabled = False
Line6.BorderColor = RGB(250, 0, 0)
Line7.BorderColor = RGB(0, 250, 0)
If Line5.BorderColor = &H80000008 Then
Line5.BorderColor = RGB(250, 0, 0)
Else
If Line5.BorderColor = RGB(250, 0, 0) Then
Line5.BorderColor = RGB(0, 250, 0)
Else
If Line5.BorderColor = RGB(0, 250, 0) Then
Line5.BorderColor = RGB(0, 0, 250)
Else
If Line5.BorderColor = RGB(0, 0, 250) Then
Line5.BorderColor = RGB(250, 0, 0)
End If
End If
End If
End If
End Sub

Private Sub Timer8_Timer()
Timer7.Enabled = True
Timer8.Enabled = False
Line6.BorderColor = RGB(0, 250, 0)
Line7.BorderColor = RGB(250, 0, 0)
If Line5.BorderColor = &H80000008 Then
Line5.BorderColor = RGB(250, 0, 0)
Else
If Line5.BorderColor = RGB(250, 0, 0) Then
Line5.BorderColor = RGB(0, 250, 0)
Else
If Line5.BorderColor = RGB(0, 250, 0) Then
Line5.BorderColor = RGB(0, 0, 250)
Else
If Line5.BorderColor = RGB(0, 0, 250) Then
Line5.BorderColor = RGB(250, 0, 0)
End If
End If
End If
End If

End Sub
'form2
Private Sub Command1_Click()
Dim v
v = Drive1.Drive
a = Left(v, 2)
If File1.Path = a + "\" Then
Form1.MMControl1.FileName = File1.Path + File1.FileName
Else
Form1.MMControl1.FileName = File1.Path + "\" + File1.FileName
End If
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dim v
v = Drive1.Drive
Dir1.Path = v + "\"

End Sub