Dim i As Integer
Dim a As Integer
Dim b As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

i = i + 1
Label2.Text = "背景音乐加载"

'a = 1
'b = 1
If i = (290 * (a + 1)) Then
AxWindowsMediaPlayer1.URL = Application.StartupPath & "\背景音乐\背景音乐.wav"
a = a + 1
End If
If i = 1 Then
AxWindowsMediaPlayer1.URL = Application.StartupPath & "\背景音乐\背景音乐.wav"
Label2.Text = "窗体加载"
'
f1.Show()
Me.Hide()

End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
AxWindowsMediaPlayer1.Visible = False
End Sub

Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter

End Sub