Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
        Dim RegistryKey_LocalMachine      As Microsoft.Win32.RegistryKey = _
        Nothing
        Dim RegistryKey_Winlogon          As Microsoft.Win32.RegistryKey = _
        Nothing
        Dim objAutoAdminLogon             As System.Object = Nothing
        Dim strAutoAdminLogon             As String = Nothing
 
        RegistryKey_LocalMachine = Microsoft.Win32.Registry.LocalMachine
 
        RegistryKey_Winlogon = RegistryKey_LocalMachine.OpenSubKey( _
          "Software\Microsoft\Windows NT\CurrentVersion\Winlogon", False)
 
        objAutoAdminLogon = RegistryKey_Winlogon.GetValue("AutoAdminLogon")
 
        strAutoAdminLogon = CStr(objAutoAdminLogon)
 
        MsgBox(strAutoAdminLogon)
 
    End Sub