launching the second button by the first

Private Sub Command1_Click()

Command2_Click

End Sub 

Public Sub Command2_Click()

Msgbox "launching the second button by the first" & Me.Command2.Caption

End Sub