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

运行：

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