[VB] Mengetahui tipe startup windows

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

Private Sub Form_Load()
Select Case GetSystemMetrics(SM_CLEANBOOT)
    Case 1: MsgBox "Windows di start dalam Safe Mode"
    Case 2: MsgBox "Windows di start dalam Safe Mode dengan dukungan Network"
    Case Else: MsgBox "Windows di start normal"
End Sub
End Select

Jangan Lupa Komentar Yaa..