'サーバハンドルのオープン
hServer = OpenServerHandle("***")
'●仮想チャネルのオープン
hChannel = WTSVirtualChannelOpen(hServer, SessionId, strVirtualName)
'●仮想チャネルのサーバー側に、データを書き込む
lngSts = WTSVirtualChannelWrite(hChannel, "test", LenB("test"), pBytesWritten)
Debug.Print "WTSVirtualChannelWriteリターン = " & lngSts
間違えて、2度送信してしまいました。
こちらは、解決済みにします