Kod:
Randomize()
On Error Resume Next
If ListBox1.Items.Contains(ListBox1.SelectedIndex) = (CObj(AcceptButton)) Then
ListBox1.SelectedIndex = CInt(Int(ListBox1.SelectedIndex) * Rnd()) + 3
Else
If ListBox1.Items.Contains(ListBox1.SelectedIndex) = CObj((CancelButton)) Then
ListBox1.SelectedIndex = reset_Music
End If
End If
Son düzenleme: