Private Sub btnGetRandomItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetRandomItem.Click
Dim rnd As New Random
Dim randomIndex As Integer = rnd.Next(0, ListBox1.Items.Count - 1)
MessageBox.Show(ListBox1.Items(randomIndex))
End Sub