利用VB6.0设计屏幕保护程序

　Xnow=X
　Ynow=Y
　If Xlast=0 And Ylast=0 Then
　　Xlast=Xnow
　　Ylast=Ynow
　　ExitSub
　EndIf
　If Abs(Xnow-Xlast)>1 Or Abs(Ynow-Ylast)>1 Then
　　X=ShowCursor(True)
　　End
　EndIf
EndSub
Private Sub Timer1-Timer()
　Picture1.Visible=True
　Picture1.Top=(Form1.Height-Picture1.Height)/2
　Picture1.Left=Picture1.Left 50
　If Picture1.Left>Form1.Width Then
　　Picture1.Left=-Picture1.Width
　　EndIf
　EndSub
　　将以上代码编译生成可执行文件，在保存文件对话窗中输入文件名称时把扩展名改为”SCR”，最后将生成的屏幕保护程序添加到Windows的系统下即可。