e si
ero finito propio fuoristrada 
Non ci avevo mai messo le mani a moltiplicare H'Ore e minuti
delle volte anche per ricordare qualcosa
sembra che vada bene
Private Sub C1_Click()
Dim ore As Double, min As Double,k(3) As Double
k(0) = CDbl(Val(T1(0).Text) * 60) ' ora1
k(1) = CDbl(Val(T1(1).Text)) 'minuti1
k(2) = CDbl(Val(T1(3).Text) * 60) ' ora2
k(3) = CDbl(Val(T1(4).Text)) 'minuti2
min = (k(0) + k(1)) * (k(2) + k(3))
ore = CDbl(Val(min / 60))
T1(2).Text = T1(0).Text & T1(1).Text
T1(5).Text = T1(3).Text & T1(4).Text
formattatxt
Do
If min > 59 Then
min = min - 60
End If
If min < 60 Then Exit Do
Loop
T1(6).Text = ore & ":" & Format(min, "00")
End Sub
Private Sub T1_Validate(Index As Integer, Cancel As Boolean)
formattatxt
End Sub
Sub formattatxt()
T1(0).Text = Format(T1(0).Text, "00")
T1(1).Text = Format(T1(1).Text, "00")
T1(3).Text = Format(T1(3).Text, "00")
T1(4).Text = Format(T1(4).Text, "00")
T1(2).Text = Format(T1(2).Text, "00:00")
T1(5).Text = Format(T1(5).Text, "00:00")
T1(6).Text = Format(T1(6).Text, "00:00")
End Sub
Grazie