Private Sub LinkLabel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel1.MouseHover
;Panel1.Visible = True
;Panel1.Left = LinkLabel1.Left
;Panel1.Top = LinkLabel1.Top + LinkLabel1.Height
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
;Panel1.Visible = False
End Sub
End Class 作者:
Nothing 时间: 2008-7-10 10:36