API调整视频大小

'   比如播放c:/123.avi  
  '   在窗体中加两个按钮。  
  '   单击Command1播放，单击Command2设置播放窗口位置（左上角x，左上角y，宽度，高度）  
   
  Option   Explicit  
  Private   Declare   Function   mciSendString   Lib   "winmm.dll"   Alias   "mciSendStringA"   (ByVal   lpstrCommand   As   String,   ByVal   lpstrReturnString   As   String,   ByVal   uReturnLength   As   Long,   ByVal   hwndCallback   As   Long)   As   Long  
   
  Private   Sub   Command1_Click()  
          Dim   filename   As   String  
          filename   =   "c:/123.avi"  
          mciSendString   "close   avi",   0,   0,   0  
          mciSendString   "open   "   &   filename   &   "   alias   avi",   0,   0,   0  
          mciSendString   "play   avi",   0,   0,   0  
  End   Sub  
   
  Private   Sub   Command2_Click()  
          mciSendString   "put   avi   window   at   100   100   500   400",   0,   0,   0  
  End   Sub