首先必須確保在你的Windows系統中SYSTEM.INI文件關于[MCI]中需有MPEGVideo項(一般Windows95和Windows98中均有此項)。

　　次在VB中建立一個新窗口,加入多媒體部件MicrosoftMultimediaControl5.0(位于C:/Windows/System/MCI32.OCX),以及對話框部件MicrosoftCommonDialogControl5.0(位于C:/Windows/System/COMMONDLG32.OCX),將MCI控件拖放至窗體Form上,調整其大小,并將窗體的大小也調整為與其同樣大小;將其九個按鈕(從左至右為:

　　DimjAsInteger

　　j=MMControl1.Position 100'數值100為前進量,可適當調整

　　Ifj>MMControl1.LengthThenMMControl1.From=MMControl1.Length

　　ElseMMControl1.From=j

　　EndIf

　　MMControl1.Command="Play"

　　EndSub

　　MCI控件還有很多屬性,如畫面播放位置hWndDisplay屬性等等,大家可參閱相關資料自行摸索。

　　調整好窗體的標題、圖標、顏色等,然后編譯成.EXE文件,你就可以在Windows下擁有自己的VCD播放器了。

　　DeclareSubClientToScreenLib"User"(ByvalhwndAsInteger,ipPointaspointAPI)DeclareFunctionGetParentLib"User"(Byval　hwnd　As　Integer)AsInteger

　　然后建立一個新的子程序(ALT＋N→N→鍵入子程序名MoveCursorOn)，下面是子程序的代碼：

　　SubMoveCursorOn(sourceAsControl)

　　　　DimPtAsPoinTAPI

　　　　DimhparentAsInteger

　　　　p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)

　　　　p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)

　　　　hparent=GetParent(source.hwnd)

　　　　ClientToScreenhparentpt

　　　　SetCursorPos　pt.x　pt.y

　　　　EndSub

　　使用該子程序很容易，例如我們想把鼠標移動到按鈕Command1上，就可使用語句MoveCursorOnCommand1您會看到鼠標箭頭已經指著按鈕Command1。

　　需要說明的是，千萬不要濫用該子程序。讓鼠標自己滿屏亂飛，我們的用戶會感到失去對應用程序的控制，這是違反我們的初衷的。在有數個輸入框的窗口中(這在數據庫應用程序中是很典型的)，當用戶完成第一個輸入框的輸入后，總愛習慣性的加一個回車，希望輸入焦點落到下一個輸入框中(DOS中大多數應用程序是如此)，可往往事與愿違，這一回車卻觸發了擁有Default特性的按鈕，結果不是關閉了當前窗口就是又蹦出另一窗口。用戶睜大眼睛看著屏幕，"咦？！我到底做了什么？”這是Windows新用戶經常遇到的事情。解決它其實很容易，只需在輸入框的KeyPress事件中加入如下代碼：IFKeyASCII=13Then　KeyASCII=0　Sendkeys"{TAB}"ENDIF這樣，當用戶在這個輸入框中鍵入Enter時，就象鍵入TAB鍵時，焦點被移到下一控件上。但需注意，這種方法不適用于多行的TextBox，即TextBox的MultiLine特性設為True時，因為這時的回車鍵是起換行的作用。