Option Explicit
Public Declare Function GetSystemMetrics Lib
"user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
Private Sub Command1_Click()
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "Sistem Güvenli Kipte çalışıyor."
Case 2: MsgBox "Sistem Ağ destekli güvenli kipte çalışıyor"
Case Else: MsgBox "Sistem normal olarak işliyor."
End Select
End Sub