Hi.

You can do a select case on the selected text.

VB Code:
  1. Select Case Listbox1.Text

  2.     Case "Item1"

  3.         'Open form 1

  4.  
  5.     Case "Item2"

  6.         'Open form 2

  7.  
  8.     'Just keep on going until you have no more items.

  9.  
  10. End Select

I Hope this helps you on your way.