try this:
vb Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer = 0
Dim stanicastring As String
While i < ListBox1.Items.Count
stanicastring = ListBox1.Items(i).ToString
listastanica.DropDownItems.Add(stanicastring)
AddHandler listastanica.DropDownItems(i).Click, AddressOf item_Click
i = i + 1
End While
End Sub
Private Sub item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ListBox1.SelectedIndex = listastanica.DropDownItems.IndexOf(DirectCast(sender, ToolStripItem))
'this is the ToolStripItem_Click event handler
'put any code you want to execute here
End Sub
End Class