Programmatically Select item in ListBox

I'm Posting this here as I had a lot of trouble finding a solution that fit what I needed.
Basically I have a ListBox that drops down from a text field and populates with items, however hovering the mouse over an item had zero effect on the display of the items, selecting an option closes the listbox so using listbox.selecteditem = x wasn't working for me. Neither was any draw method mentioned while searching. This is what I came up with to Highlight an Item in the listbox without triggering the listbox's SelectedIndexChanged property until I needed it.

Code:

---

    Dim trigger As Boolean
    Private Sub listtake_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listtake.SelectedIndexChanged
        If trigger = True Then
            Exit Sub
        End If
        takenametxt.Text = listtake.SelectedItem.ToString
        listtake.Items.Clear()
        listtake.Visible = False
    End Sub

    Dim item As Decimal

    Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles listtake.MouseMove
        trigger = True
        item = listtake.IndexFromPoint(New Point(e.X, e.Y))
        listtake.SelectedIndex = item
    End Sub

    Private Sub listtake_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles listtake.MouseUp
        listtake.SelectedIndex = -1
        trigger = False
        listtake.SelectedIndex = item
    End Sub

---

This seems like a job for a ComboBox, what's the reason for this approach?

It was just the natural flow of things, I needed a List... one that can hide and can select in. There was just an extra event firing that caused problems. posted the work around for others. This example is tons easier than the other work arounds posted.