Wurde Windows im abgesicherten Modus,
     im abgesicherten Modus mit Netzwerk oder aber im
     normalen Modus gestartet ?
     Alles kein Problem, und das mit nur sehr wenig Zeilen:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

   Private Declare Function GetSystemMetrics Lib "User32" _
      (ByVal nIndex As Long) As Long

   Private Const SM_CLEANBOOT = 67

   Private Sub Command1_Click()
      Select Case GetSystemMetrics(SM_CLEANBOOT)
      Case 1
         s = "Abgesicherter Modus"
      Case 2
         s = "Abgesicherter Modus mit Netzwerk"
      Case Else
         s = "Windows wurde normal gestartet"
      End Select
      MsgBox s
   End Sub

   Private Sub Form_Load()
      Command1.Caption = "Windowsstart-Art ?"
   End Sub