Dim ByArr As Byte() = Encoding.Unicode.GetBytes(Message)
sender.Send(ByArr, ByArr.Length, RemotePoint) '发出消息我不知道这两句话怎么改才可以，要求发送16进制数。
Msg = Encoding.Unicode.GetString(bytes, 0, NumGet)
Console.WriteLine(vbCrLf & ">>>>>>>>>" & Msg & vbCrLf) 接收时也要16进制的
如何修改才可以做到？