请教OPENQQ强制断开后重新连接上线的代码如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我是这样写的，提示正常登录，但聊天窗口打不开，消息也不能发送，谢谢！

QQClient.stop

'------设置QQClint登录参数--------

QQClient.ServerIP = _ServerIP

QQClient.ServerPort = _ServerPort

QQClient.UserName = _UserGroup & "." & _UserID

QQClient.Password = _UserPassword

If QQClient.Start() = True '如果登录成功

Dim msg As String = "恭喜,OpenQQ登录成功!"

If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

msg = msg & QQClient.ServerMessage

End If

PopMessage(msg,"提示",PopiconEnum.Infomation,5)

e.Form.Close

Else '如果登录失败,显示服务器返回错误信息

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

主题：请教OPENQQ强制断开后重新连接上线的代码如何写？