Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      MsgBox "1. Button"
    Case 1
      MsgBox "2. Button"
    ...
    End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de