我做了一个音乐播放器，可以播视频的那种，但是视频窗口的大小不能变换，请教怎么才能让他可以变换~

用什么播放？

用这个Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)End播放~~~

谢谢啊~

Private Sub Form_Load() Picture1.BorderStyle = 0 Picture1.Width = 4000: Picture1.Height = 3000 Picture1.Move (Me.Width - Picture1.Width) \ 2, (Me.Height - Picture1.Height) \ 2 Set WindowsMediaPlayer1.Container = Picture1 WindowsMediaPlayer1.Width = Picture1.Width WindowsMediaPlayer1.Height = Picture1.Height WindowsMediaPlayer1.Move 0, 0End Sub