你是否已厭倦機上的屏幕保護程序，而又苦於難找到令自己滿意的。不急，“自己動手，豐衣足食”，你自己就可以制作精美的屏幕保護程序，只要你稍有VB編程知識。下面我們就用VB來編寫一個介紹自己家人的屏幕保護程序。
1、獲取屏保圖片：
從你家人的相片中，挑出你選定要作為圖片的，用掃描儀掃進你的電腦中，保存為“＊.bmp”格式。如果覺得效果不佳，可以用圖片處理軟件來加工，在這方面，Photoshop、iPhtotoExpress等功能都相當強。把加工好的圖片編好號（不妨就保存為pic1.bmp、pic2.bmp等等），保存在C：盤根目錄下的PHOTO子目錄中。
2、圖片顯示：
在該步中，我們使用VB中LoadPicture（）函數來載入圖片。其語法：
LoadPicture（[stringexpression]）
stringexpress參數為待載入的圖形文件的路徑和名稱。
我們使用三個控件，其名稱、屬性及值如下：
控件名屬性屬性值
FormNameMyFamily
BackColor綠色
Caption空
ControlBoxFalse
ImageNamePhoto
StrechFalse
TimerNameTconpic
Interval10000
其代碼如下：
OptionExplicit
DimcounterasInteger
DimNoasString
PrivateSubForm_Load()
Photo.Picture=LoadPicture(“c:Photopic1.bmp")
Counter=“1"
EndSub
PrivateSubTconpic_Timer()
Counter=Counter＋1
IfCounter=15then
Counter=1
EndIf
No=Trim(str(Counter))
Photo.picture=LoadPicture(“c:photopic"＋No＋“.bmp")
EndSub
說明：
第一個子程序的功能是裝載第一張圖片；
第二個子程序的功能是控制圖片的轉換；
3、添加多媒體功能：
我們可以應用VB提供的多媒體功能來為屏幕保護程序配上背景音樂。首先把自己喜歡的音樂轉錄並以“bjmusic.wav”為名保存在目錄PHOTO中，而後用Timer控件來實現對背景音樂循環播放的控制。
該步中所使用的控件，其名稱、屬性和值如下：
控件屬性屬性值
MMControlNameMMConWav
TimerNameTconwav
Interval150000
代碼如下：
PrivateSubForm_Load()
MMConWav.Visible=False
MMConWav.Notify=False
MMConWav.Wait=True
MMconWav.Shareable=False
MMConWav.DeviceType=“waveaudio"
MMConWav.Filename=“c:photojmusic.wav"
MMConWav.Command=“open"
MMConWav.Command=“play"
EndSub
PrivateSubTconwav_Timer()
MMConWav.Command=“colse"
MMConWav.Command=“open"
MMConWav.Command=“play"
EndSub
說明：第一個子程序是設置控件MMcontrol的屬性；
第二個子程序是控制該背景音樂的重復播放；
注意：選擇的背景音樂應該和屏幕保護程序的主題相一致，且其播放的時間應該是屏幕保護程序運行一周所需的時間的整數倍。
4、設置鍵盤和鼠標的響應：
要重新使用計算機，退出屏幕保護程序，就必須設置鍵盤和鼠標響應。其代碼如下：
PrivateSubForm_keydown()
End
EndSub
PrivateSubForm_Click()
End
EndSub
PrivateSubForm_MouseMove()
StaticX1,Y1AsSingle
DimX2,Y2AsSingle
X1=X
Y1=Y
IfX1=0AndY1=0Then
X1=X2
Y1=Y2
ExitSub
EndIf
If(X1<>X2)Or(Y1<>Y2)Then
End
EndIf
EndSub
說明：
第一個子程序的功能是按任意鍵時退出屏幕保護程序；
後兩個子程序的功能是在單擊或移動鼠標時退出屏幕保護程序；
5、生成MyFamily.scr程序：
就要大功告成了，選擇文件菜單中生成“＊.exe”項，生成MyFamily.Scr文件，保存在c:windows目錄下，然後選擇控制面板，在顯示器屬性中選定你自己制作的這個屏幕保護程序。搞定！運行看看，如何？看著自己制作的屏幕保護程序，心裡有一種成就感吧！->
