Vb6 elapsed time in days hours minutes

I have the following code and i need lablel1.caption to show = day = .. / hours = .. / min = ..
i dont know where to put days , hours , min
here my code:

Option Explicit
Private mStartTime As Date
Private Sub Form_Load()
mStartTime = Now
Timer1.Interval = 900
End Sub
Private Sub Timer1_Timer()
Dim t As Date
t = Now - mStartTime
Label1.Caption = CStr(Int(CDbl(t))) & Format$(t, ":hh:mm:ss")
End Sub