If TypeOf e.Sender Is WinForm.Label Then '如果单击的是标签
If e.Sender.Name.ToLower.StartsWith("sh") Then '而且名称是以sh开头
If vars("sh") IsNot Nothing Then vars("sh").HideToolTip()
vars("sh") = e.Sender
Dim sh As String = e.Sender.Name.SubString(2) '获取省份
Dim ps As Integer = Tables("中国地图").FindRow("省份 = '" & sh & "'") '找出此省份所在行的位置
If ps >= 0 Then '如果找到
e.Sender.ShowToolTip(Tables("中国地图").Rows(ps)("简介"))
Tables("中国地图").Position = ps '定位到此行
End If
End If
End If