bsp;    If Not GetProcAddress(libPtr, method).Equals(IntPtr.Zero) Then
                    FreeLibrary(libPtr)
                    Return True
                End If
                FreeLibrary(libPtr)
            End If
            Return False
        End Function

        Protected Function FormatError(ByVal number As Integer) As String
            Dim Buffer = New StringBuilder(255)
            FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, IntPtr.Zero, number, 0, Buffer, Buffer.Capacity, 0)
            Return Buffer.ToString()
        End Function
    End Class

    Public Class PrivilegeException
        Inherits Exception

        Public Sub New()
            MyBase.New()
        End Sub

        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub
    End Class

例如实现注销功能：
        Dim shutdown As New WindowsController()
        shutdown.ExitWindows(shutdown.RestartOptions.LogOff, False)