title: Mousehover in listview VBA
body: <p>i want to select the listitem by hovering the mouse not by clicking.. how to achieve in vba..</p>
  <p>i saw a code in a forum using vb.net</p>
  <pre><code>Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
      Dim itm As ListViewItem
      itm = Me.ListView1.GetItemAt(e.X, e.Y)
      If Not itm Is Nothing Then
          MessageBox.Show(itm.Text)
      End If
      itm = Nothing
  End Sub
  </code></pre>
  <p>i have this also.. but this doesnt go to other row item.. always selecting the first item.</p>
  <pre><code>Private Sub ListView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
      Dim itm As ListItem
      Me.ListView1.MultiSelect = False
      
      Set itm = Me.ListView1.HitTest(x, y)
      If Not itm Is Nothing Then
          itm.Selected = True
      End If
  End Sub
  </code></pre>