Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
Print "播放中"
End Sub

Private Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = True
Print "暂停中"
End Sub

Private Sub Command3_Click()
Command3.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Print "请选择媒体"
End Sub

Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End Sub

@H_403_4@

运行：@H_403_4@

很简单，其实vb很好玩的~~~@H_403_4@