CodeItBetter Programming Another VB Programming Blog

'System & API - How to Determine Windows Startup Mode

Option Explicit
 
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
 
Private Sub Form_Load()
    Select Case GetSystemMetrics(SM_CLEANBOOT)
    Case 1
        MsgBox "Safe Mode."
    Case 2
        MsgBox "Safe Mode with Network support."
    Case Else
        MsgBox "Windows is running normally."
    End Select
End Sub