主题：QQClient.Send(NA ,msg ,True) 发不出信息

可以打开聊天窗口吗？可以正常聊天吗？

代码改一改

Dim msg As String = USER.NAME & "请假,请审核,谢谢!"
Dim NA As String
NA = Forms("申请批准事务管理").Controls("TextBox5").Value

msgbox(NA)
QQClient.Send(NA ,msg ,True)