Private Sub Command1_Click(Index As Integer) Form2.Show Form2.Caption = "Titre " & Index End Sub
Private Sub Command1_Click() Form2.Show Form2.Caption = Command1.Caption End Sub Private Sub Command2_Click() Form2.Show Form2.Caption = Command2.Caption End Sub 'Ainsi de suite