module1.bas

很好的教程原代码！

Attribute VB_Name = "Module1"
' GetSystemMetrics函数声明
Public Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) _
    As Long

'使用的常量声明
Public Const SM_CLEANBOOT = 67