请高手帮我看看我的代码哪里出问题了?

VB制作媒体播放器：
Option Explicit
Dim playfilename As String
Dim playposition As Double

Private Sub Command1_Click() \打开文件
CommonDialog1.ShowOpen
playfilename = CommonDialog1.FileName
playposition = 0
End Sub

Private Sub Command2_Click() \播放
Command3.Enabled = True
Command4.Enabled = True
WindowsMediaPlayer1.currentMedia.Name = playfilename
WindowsMediaPlayer1.Controls.currentPosition = playposition
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command3_Click() \暂停
Command3.Enabled = False
WindowsMediaPlayer1.Controls.pause
playposition = WindowsMediaPlayer1.Controls.currentPosition
End Sub

Private Sub Command4_Click() \停止
playposition = 0
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False

请高手帮我看看代码是什么意思～ 请高手帮我看看这段反汇编的代码 请帮我看看电脑的问题出在哪里？ 请高手帮我看看代码哪里错了,会报错 这段delphi代码哪里不对,怎么实现不了循环,请各位高手帮我看看!!!!!! 请高手帮我看看这个C#代码哪里错了 一段asp代码 请高手帮我看看哪里错了，怎么修改 高手帮我看看这段ASP查询代码 哪出的问题 可以帮我看看这段JavaScript代码的问题出在哪里吗？ 请大家帮我看看这段asp代码的问题出在哪儿? 谢谢