Public Class Form1
 
    Dim Items() As String = {"Time 1", "Time 2", "Time 3"}
    Dim WithEvents ListaTime1 As New ListBox, ListaTime2 As New ListBox
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each item In Items : ListaTime1.Items.Add(item) : ListaTime2.Items.Add(item) : Next
        Me.Controls.Add(ListaTime1) : Me.Controls.Add(ListaTime2)
        ListaTime1.Dock = DockStyle.Left : ListaTime2.Dock = DockStyle.Right
        Me.Size = New Point(280, 100)
    End Sub
 
    Private Sub Listas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles _
                                                                              ListaTime1.SelectedIndexChanged, _
                                                                              ListaTime2.SelectedIndexChanged
        Select Case sender.SelectedIndex
            Case 0 : MsgBox(sender.SelectedItem)
            Case 1 : MsgBox(sender.SelectedItem)
            Case 2 : MsgBox(sender.SelectedItem)
            Case Else
        End Select
 
    End Sub
 
End Class