[مساعدة]

السلام عليكم

تفضل الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
        Dim procInfo As New ProcessStartInfo(Application.ProductName)
        procInfo.Verb = "RunAs"
        Try
            Process.Start(procInfo)
            Application.Exit()
        Catch ex As Exception
        End Try
    End If
End Sub