【求助】困惑的一个问题: Delphi 中这句话用VB等效的是什么呢???

Question

Delphi 中这句话用VB等效的是什么呢???
MediaPlayer1.DisplayRect:=Form1.Panel1.ClientRect
就是说用VB做视频播放时不是100%而是随着Picture1的大小自动缩放...
比如将MMControl的显示句柄和Picture1的句柄连接起来(MMControl1.hWndDisplay=Picture1.hWnd)，之后自动缩放类似用Delphi的方法如何处理呢? 
调整PictureBox的大小无效...thx

Answer 1

还有就是VB6中的 MMControl 和 Delphi 中的 MediaPlayer 控件在XP下好象有不兼容的现象，放不了*.dat 的东西，同样在WIN 2000就没问题

Answer 2

MediaPlayer1.autosize = true '''这是与播放的视频大小自动缩放
如果是把　MediaPlayer　放在　PictureBox　中，只要这样：Private Sub Form_Click()
　　Picture1.Width = Picture1.Width + 50
  　Picture1.Height = Picture1.Height + 50
End SubPrivate Sub Picture1_Resize()
    WindowsMediaPlayer1.Move 0, 0, Picture1.Width, Picture1.Height
End Sub＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝巧了，我也是做视频的．不过是用VC 和VB

Answer 3

我说的不是Windows Media Player控件，而是老的MMControl!thx..