主题：偶尔程序假死，求强制关闭前端窗口的办法

SelectedIndexChanged 选择不同列表项目后执行。

'根据上级列表名称筛选本表数据

Dim esd = e.Sender

Dim cnm = e.form.Controls("ComboBoxg_商品归类")

If esd.text = "+管理" Then

'''略

Else

    '判定下拉列表可打开了

    esd.Select

    Dim i As Integer

    For i = 1 To 3

        If esd.DroppedDown = True Then '判定下拉列表状态

            Sendkeys.Send("{ESC}") '关闭下拉列表

        End If

    Next

    '延时执行---如下屏蔽就不触发进入控件事件了【用处是说输入完成后直接跳转至下一步控件的下拉列表直接输入数据，做到数据连惯输入】

    'While Date.Now < Date.Now.AddSeconds(0.5) '延时执行

        'Application.DoEvents '少于指定时间前即刻暂停代码的执行,大于时间后再继续执行代码

    'End While

    cnm.Select

End If

此为问题代码 如果不暂停0.5S左右，下个控件"ComboBoxg_商品归类"的下拉列表就不自动打开

    '延时执行---如下屏蔽就不触发进入控件事件了【用处是说输入完成后直接跳转至下一步控件的下拉列表直接输入数据，做到数据连惯输入】

    'While Date.Now < Date.Now.AddSeconds(0.5) '延时执行

        'Application.DoEvents '少于指定时间前即刻暂停代码的执行,大于时间后再继续执行代码

    'End While