Option Explicit

Private Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long _
) As Long

Private Sub Form_Click()
    Dim strWinPath As String
    Dim lngRtn As Integer
    Const MAXWINPATH = 144
    strWinPath = Space$(MAXWINPATH)
    lngRtn = GetWindowsDirectory(WinPath, MAXWINPATH)
    strWinPath = Left$(strWinPath, lngRtn) 'Truncate at the 0 byte
    Print strWinPath
End Sub

strWinPath = Left$(strWinPath，InStr(strWinPath，Chr$(0)-1)

Option Explicit
Const vbHelpContents = 3

Private Declare Function WinHelp _
Lib "User32" Alias "WinHelpA" ( _    
   ByVal hWnd As Long, _
    ByVal lpHelpFile As String, _    
   ByVal wCommand As Long, _
    ByRef dwData As Any _
) As Long

Private Sub Form_Click()    
   Dim lngX As Long
    Dim lngY As Long
    lngX = WinHelp(Form1.hWnd, "metric.hlp", vbHelpContents, _
        ByVal lngY)
End Sub

Option Explicit

Private Type SYSTEM_INFO
    dwOemID As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type

Private Declare Sub GetSystemInfo _
Lib "kernel32" ( _
    lpSystemInfo As SYSTEM_INFO _
)

Private Sub Form_Click()
    Dim Sys As SYSTEM_INFO
    GetSystemInfo Sys
    Print "Processor type: "; Sys.dwProcessorType
    Print "No. Processors: "; Sys.dwNumberOfProcessors
End Sub

Option Explicit

Private Declare Function GetTickCount _
Lib "kernel32" ( _
) As Long

Private Sub Form_Click()    
     Dim i As Integer    
     Dim lngMS As Long
      Print "Time elapsed since Windows was started:"    
     For i = 1 To 10
            lngMS = GetTickCount        
            Do While lngMS = GetTickCount        
            Loop
            Print lngMS; " milliseconds"    
     Next i 
End Sub

Option Explicit

'GetDriveType return values
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

Private Declare Function GetDriveType _
Lib "kernel32" Alias "GetDriveTypeA" ( _
    ByVal nDrive As String _
) As Long

Private Sub Form_Click()    
   Dim i As Integer
   Dim lngDrive As Long
   Dim strD As String
   For i = 0 To 25  'All possible drives A to Z
        strD = Chr(i + 65) & ":\"        
        lngDrive = GetDriveType(strD)
        
        Select Case lngDrive        
        Case DRIVE_REMOVABLE
                Print "Drive " & strD & " is removable."        
        Case DRIVE_FIXED
                Print "Drive " & strD & " is fixed."        
        Case DRIVE_REMOTE
                Print "Drive " & strD & " is remote." 
         Case DRIVE_CDROM
                Print "Drive " & strD & " is CD-ROM."
         Case DRIVE_RAMDISK
                Print "Drive " & strD & " is RAM disk." 
         Case Else
          End Select    
   Next i
End Sub

'Delegate to SysInfo Properties
Public Property Get ACStatus() As Integer
    ACStatus = OldSysInfo.ACStatus
End Property
Public Property Get BatteryFullTime() As Long
    BatteryFullTime = OldSysInfo.BatteryFullTime
End Property
Public Property Get BatteryLifePercent() As Integer
    BatteryLifePercent = OldSysInfo.BatteryLifePercent
End Property
Public Property Get BatteryLifeTime() As Long
    BatteryLifeTime = OldSysInfo.BatteryLifeTime
End Property
Public Property Get BatteryStatus() As Integer
    BatteryStatus = OldSysInfo.BatteryStatus
End Property
Public Property Get OSBuild() As Integer
    OSBuild = OldSysInfo.OSBuild
End Property
Public Property Get OSPlatform() As Integer
    OSPlatform = OldSysInfo.OSPlatform
End Property
Public Property Get OSVersion() As Single
    OSVersion = OldSysInfo.OSVersion
End Property
Public Property Get ScrollBarSize() As Single
    ScrollBarSize = OldSysInfo.ScrollBarSize
End Property
Public Property Get WorkAreaHeight() As Single
    WorkAreaHeight = OldSysInfo.WorkAreaHeight
End Property
Public Property Get WorkAreaLeft() As Single
    WorkAreaLeft = OldSysInfo.WorkAreaLeft
End Property
Public Property Get WorkAreaTop() As Single
    WorkAreaTop = OldSysInfo.WorkAreaTop
End Property
Public Property Get WorkAreaWidth() As Single
    WorkAreaWidth = OldSysInfo.WorkAreaWidth
End Property

'Event declarations
Event ConfigChangeCancelled()
Event ConfigChanged( _
    OldConfigNum As Long, _
    NewConfigNum As Long)
Event DeviceArrival( _
    DeviceType As Long, _
    DeviceID As Long, _
    DeviceName As String, _
    DeviceData As Long)
Event DeviceOtherEvent( _
    DeviceType As Long, _
    EventName As String, _
    DataPointer As Long)
Event DeviceQueryRemove( _
    DeviceType As Long, _
    DeviceID As Long, _
    DeviceName As String, _
    DeviceData As Long, _
    Cancel As Boolean)
'And so on...

'Raise all the SysInfo events on the user control
Private Sub OldSysInfo_ConfigChangeCancelled()
    RaiseEvent ConfigChangeCancelled
End Sub
Private Sub OldSysInfo_ConfigChanged( _
    ByVal OldConfigNum As Long, _
    ByVal NewConfigNum As Long)
    RaiseEvent ConfigChanged(OldConfigNum, NewConfigNum)
End Sub
Private Sub OldSysInfo_DeviceArrival( _
    ByVal DeviceType As Long, _
    ByVal DeviceID As Long, _
    ByVal DeviceName As String, _
    ByVal DeviceData As Long)
    RaiseEvent DeviceArrival(DeviceType, DeviceID, DeviceName, DeviceData)
End Sub
Private Sub OldSysInfo_DeviceOtherEvent( _
    ByVal DeviceType As Long, _
    ByVal EventName As String, _
    ByVal DataPointer As Long)
    RaiseEvent DeviceOtherEvent(DeviceType, EventName, DataPointer)
End Sub
Private Sub OldSysInfo_DeviceQueryRemove( _
    ByVal DeviceType As Long, _
    ByVal DeviceID As Long, _
    ByVal DeviceName As String, _
    ByVal DeviceData As Long, _
    Cancel As Boolean)
    RaiseEvent DeviceQueryRemove(DeviceType, DeviceID, DeviceName, _
        DeviceData, Cancel)
End Sub
'And so on...

'Declarations for system colors
Public Enum SystemColor
    COLOR_SCROLLBAR = 0
    COLOR_BACKGROUND = 1
    COLOR_ACTIVECAPTION = 2
    COLOR_INACTIVECAPTION = 3
    COLOR_MENU = 4
    COLOR_WINDOW = 5
    COLOR_WINDOWFRAME = 6
    COLOR_MENUTEXT = 7
    COLOR_WINDOWTEXT = 8
    COLOR_CAPTIONTEXT = 9
    COLOR_ACTIVEBORDER = 10
    'Constants omitted for brevity
End Enum
Private Declare Function GetSysColor _
Lib "user32" ( _
    ByVal nIndex As Long _
) As Long

Public Function GetSystemColor(Index As SystemColor)
    GetSystemColor = GetSysColor(Index)
End Function