Someone

Private Sub Command4_Click(Index As Integer)
Command4(Index).Caption = Command4(Index).Caption + 1
End Sub

Private Sub Command5_Click(Index As Integer)
Command5(Index).Caption = Command5(Index).Caption + 1
End Sub

Private Sub Command6_Click(Index As Integer)
Command6(Index).Caption = Command6(Index).Caption + 1
End Sub

Private Sub Timer1_Timer()
For i = 0 To 3
Command7(i).Caption = Val(Command4(i).Caption) + Val(Command5(i).Caption) + Val(Command6(i).Caption)
Next i
End Sub