如何动态改变屏幕设置？

　　我们经常看到许多 Win95 的应用程序（尤其是游戏）在运行它的时候改变屏幕的设置，运行完后恢复，在 VB 中，我们可以用以下方法实现：
定义
** Declare Function lstrcpy Lib "kernel32" Alias _
　 "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
** Type DEVMODE
　 dmDeviceName As String * CCHDEVICENAME
　 dmSpecVersion As Integer
　 dmDriverVersion As Integer
　 dmSize As Integer
　 dmDriverExtra As Integer
　 dmFields As Long
　 dmOrientation As Integer
　 dmPaperSize As Integer
　 dmPaperLength As Integer
　 dmPaperWidth As Integer
　 dmScale As Integer
　 dmCopies As Integer
　 dmDefaultSource As Integer
　 dmPrintQuality As Integer
　 dmColor As Integer
　 dmDuplex As Integer
　 dmYResolution As Integer
　 dmTTOption As Integer
　 dmCollate As Integer
　 dmFormName As String * CCHFORMNAME
　 dmUnusedPadding As Integer
　 dmBitsPerPel As Integer
　 dmPelsWidth As Long
　 dmPelsHeight As Long
　 dmDisplayFlags As Long
　 dmDisplayFrequency As Long
End Type
** Declare Function ChangeDisplaySettings Lib "User32" _
　 Alias "ChangeDisplaySettingsA" (ByVal lpDevMode As Long, _
　 ByVal dwflags As Long) As Long
'函数
Public Function SetDisplayMode(Width As Integer, _
　 Height As Integer, Color As Integer) As Long
　 Const DM_PELSWIDTH =