Private Sub Form_Load()
If Label3.Caption = "a" Then
Timer1.Enabled = True
End If
Private Sub Check1_Click()
Label3.Caption = "a"
End Sub
Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = List2.List(List1.ListIndex + 1)
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Timer1_Timer()
Command1_Click
End Sub

你想让它有啥反应