老师，

做了个窗体，代码如下，时间设置了1秒连接一次，连接不成功时如果想要退出，点击【But退出】，有时就没有什么反应（那时程序应该在执行QQClient.Start），要点很多次才可以。

连接中断通知_AfterLoad

e.Form.TimerEnabled = True

e.Form.TimerInterval = 1000

连接中断通知_But手动连接_Click

Dim Lbl As WinForm.Label = e.Form.Controls("Label1")

If QQClient.Ready = True Then

    Lbl.ForeColor = Color.White

    Lbl.Text = "与服务器连接成功！"

    e.Form.TimerEnabled = False

Else

    Lbl.Text = "与服务器连接中断，正在尝试重新连接....."

    If Lbl.ForeColor = Color.Red Then

        Lbl.ForeColor = Color.Yellow

    Else

        Lbl.ForeColor = Color.Red

    End If

    QQClient.Start

End If

连接中断通知_But退出_Click

    e.Form.TimerEnabled = False

If QQClient.Ready = True Then

    e.Form.Close

Else

    Dim Result As DialogResult = MessageBox.Show("与服务器的连接还处理中断状态，请确认是否退出整个系统", "退出提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        Syscmd.Project.Exit()

    End If

End If