Windowsun Hangi Modda Çalıştığını Öğrenmek

   Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   Public Const SM_CLEANBOOT = 67

        Select Case GetSystemMetrics(SM_CLEANBOOT)
            Case 1 : MsgBox("Sistem Güvenli modda çalışıyor.")
            Case 2 : MsgBox("Sistem Ağ destekli güvenli modda çalışıyor.")
            Case Else : MsgBox("Sistem normal olarak çalışıyor.")
        End Select