I have this code, but the text on button4 never changes when i click in my listbox

Code:
  1. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  2.         Button4.Text = ListBox1.SelectedItem
  3.     End Sub