Попробуй использовать не ListBox a ListVeiw... На мой взгяд красивше и проще...


Dim b As Boolean = False
Dim iClick As Byte = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.Columns.Add("Моя колонка", ListView1.Width - 20, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.MultiSelect = False
ListView1.HideSelection = False
ListView1.FullRowSelect = True
Timer1.Interval = 150
Dim li As ListViewItem

li = New ListViewItem
li.Text = "Hello"
li.Tag = 1
ListView1.Items.Add(li)

li = New ListViewItem
li.Text = "Hello1"
li.Tag = 2
ListView1.Items.Add(li)

li = New ListViewItem
li.Text = "Hello3"
li.Tag = 3
ListView1.Items.Add(li)

End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Try
iClick = 0
b = False
If ListView1.SelectedItems(0).Tag <> 2 Then
Timer1.Enabled = True
End If

Catch ex As Exception

End Try
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
b = Not b
If iClick = 10 Then
Me.Cursor = Cursors.Default
Timer1.Enabled = False
Exit Sub
Else
If b = True Then
Me.Cursor = Cursors.Help
Else
Me.Cursor = Cursors.NoMove2D
End If
iClick = iClick + 1
End If
End Sub

Попробуй по этому пути пойти...