static extern void WTSCloseServer(IntPtr hServer);

Private Shared Sub WTSCloseServer(ByVal hServer As IntPtr)

        WTSCloseServer(ptrOpenedServer)

    static extern void WTSCloseServer(IntPtr hServer);

        WTSCloseServer(ServerHandle);

     Private Shared Sub WTSCloseServer(ByVal hServer As IntPtr)

        WTSCloseServer(ptrOpenedServer)

        WTSCloseServer(ptrOpenedServer)

When you are finished with the handle returned by WTSOpenServer, call the WTSCloseServer function to close it.