Admin check with a service...

[Strange_will]

Private Sub NTadmin_Timer()
    If Form1.Visible = False Then
        If CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) = True Then
            Form1.Visible = True
            App.TaskVisible = True
        End If
    End If
    If Form1.Visible = True Then
        If CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) = False Then
            Form1.Visible = False
            App.TaskVisible = False
        End If
    End If
End Sub

i use that every second to check if an admin is logged in with this service....

if i log in with my admin account on XP, it will show the program (programs defaults are hidden)

but if i log in as a guest after logged in as admin the program will not hide!

big problem, cant have guest accounts messin with the program....

[nareth]

try using elseif instead of endif and then if

Private Sub NTadmin_Timer()
    If CBool(IsNTAdmin(ByVal 0&, ByVal 0&) = True Then
            Form1.Visible = True
            App.TaskVisible = True
    ElseIf CBool(IsNTAdmin(ByVal 0&, ByVal 0&) = False Then
            Form1.Visible = False
            App.TaskVisible = False
    End If
End Sub