VB.NET中的ListBox右键选中Item的方法

   最近需要处理一个关于如何在ListBox中右键选中Item时弹出菜单的问题，上网搜索了一下，居然发现有不少人问这个问题，却没找到正确的答案（也许是我的搜索方法不对头），很多讲的只是ListView，相距答案甚远。无奈之下，只好放下偷懒的心，自己动手。

    其实，关键只是在于如何得到右键点击ListBox时的坐标，然后根据坐标判断是否选中了某一项，得到Index而已。找了一下MSDN，终于找到了IndexFromPoint这个函数，解决方法呼之欲出了。于是，生成了ListBox的MouseDown消息处理函数（具体方法不用细说了吧？），然后使用这个函数得到选中Item的Index，进行后续弹出菜单的处理，具体见下面示例：

    Private Sub ListBoxUser_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxUser.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim sPoint As Point = New Point(e.X, e.Y)
            Dim sIndex As Integer = ListBoxUser.IndexFromPoint(sPoint.X, sPoint.Y)
            If sInd