Private Sub Form_Load()
    Command2.Enabled = False
End Sub
 
Private Sub Command1_Click()
    Command2.Enabled = True
    Call Command2_Click   '<------------
End Sub
 
Private Sub Command2_Click()
    MsgBox "hallo"
End Sub