美国有哪些衣服品牌:请问有人可以帮我作一个简单的VB 程序设计吗？作个“媒体播放器”，谢谢！

Option Explicit
Dim filename As String

Private Sub Form_Load()

End Sub

Private Sub mnuopen_Click()
CmmDialog1.ShowOpen
filename = CmmDialog1.filename
filename = StrConv(filename, vbLowerCase)
If filename Like "*.avi" Then
MMControl1.DeviceType = "avivideo"
ElseIf filename Like "*.wav" Then MMControl1.DeviceType = "waveaudio"
ElseIf filename Like "*.mid" Or filename Like "*.rmi" Then MMControl1.DeviceType = "sequencer"
ElseIf filename Like "*.mpg" Or filename Like "*.mp3" Then MMControl1.DeviceType = "mpegvideo"
Else: GoTo line1
End If
MMControl1.Command = "close"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.filename = filename
MMControl1.Command = "open"
MMControl1.From = 0
Slider1.Min = 1
Slider1.Max = MMControl1.Length
line1: End Sub

Private Sub Timer1_Timer()
Slider1.Value = MMControl1.Position
End Sub

我有，你需要的话，留下邮箱，我发给你。

vb中有一个windowsmediaplay控件，可以实现播放器。

找工作的吧,杭州恒生出的就是这个题目,用WINDOWSMEDIAPLAY就可以实现,