Private Sub Command1_Click()

Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: Label1 = "Felsäkert Mode."
Case 2: Label1 = "Felsäkert Mode med Nätverks support."
Case Else: Label1 = "Windows körs normalt."
End Select

End Sub