If they share same string values , then do this . Note , this doesn't require to be in the same index .

VB Code:
  1. Me.ListBox2.Text = Me.ListBox1.Text

  2. Me.ListBox3.Text = Me.ListBox1.Text

  3. Me.ListBox4.Text = Me.ListBox1.Text

  4. Me.ListBox5.Text = Me.ListBox1.Text

  5. Me.ListBox6.Text = Me.ListBox1.Text