Public Function IsUserAdministrator() As Boolean
    Dim isAdmin As Boolean
    Try
        Dim user As WindowsIdentity = WindowsIdentity.GetCurrent()
        Dim principal As New WindowsPrincipal(user)
        isAdmin = principal.IsInRole(WindowsBuiltInRole.Administrator)
    Catch ex As UnauthorizedAccessException
        isAdmin = False
    Catch ex As Exception
        isAdmin = False
    End Try
    Return isAdmin
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
    Dim adminProcess As New System.Diagnostics.ProcessStartInfo With {
        .UseShellExecute = True,
        .WindowStyle = ProcessWindowStyle.Hidden,
        .WorkingDirectory = System.Environment.CurrentDirectory,
        .FileName = "AddToAllUsersAutostart.exe",
        .Verb = "runas"
    }
    Try
        System.Diagnostics.Process.Start(adminProcess)
    Catch exception As System.Exception
        MessageBox.Show(exception.Message, "MyApp", MessageBoxButtons.OK, _
          MessageBoxIcon.Exclamation)
    End Try
End Sub