Infelizmente, a forma mais fácil que vejo de se fazer isso é listando todos os itens:
Private Sub ListBox1_Click()
Select Case Me.ListBox1
Case "frmA": frmA.Show
Case "frmB": frmB.Show
Case "frmC": frmC.Show
End Select
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br