主题：提示窗口

老师，想在AfterSelChange事件中写入下面代码，实现点到“辍学分类”列后弹出独立窗口“信息”，显示提示信息。其它的都没有问题，要解决的问题是怎么能打开窗口，显示完后关闭窗口。

粉色的部分没问题，黑色的部分原来写在cilk中，存在两问题：

1、打开窗口不能及时显示内容，非得点别的列后再回到辍学分类列才显示出内容。

2、打开了窗口，点别的列不能自动关闭窗口。

If e.Col.Name = "辍学分类"  Then
    If Forms("信息").Opened = False Then
        Forms("信息").Open
        If Forms("信息").Opened AndAlso e.OldRange.ColSel <> e.NewRange.ColSel
            Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Black
            rtxt.text = "无内容"
            Select Case c.name
                Case "辍学分类"
                    rtxt.ForeColor = color.Blue
                    rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
            End Select
        End If
      End If
End If