Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
        ByVal nIndex As Long) As Long

Private Const SM_CLEANBOOT As Long = &H43

Sub Demo()
  Select Case GetSystemMetrics(SM_CLEANBOOT)
     Case 1
       MsgBox "Windows läuft im abgesicherten Modus."
     Case 2
       MsgBox "Windows läuft im abgesicherten Modus " & _
              "mit Netzwerk-Unterstützung."
     Case Else
       MsgBox "Windows läuft im normalen Modus."
  End Select
End Sub