DateTime problem (resolved)

[SuperSparks]

I just can't seem to get my head round this one:

Private Sub btnAlmStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlmStart.Click
 
        Time1 = Now                             ' Take initial time value to add HH, MM, SS to
        Hours = CInt(cmbHours.Text)             ' Assign to global variables values from combo boxes
        Minutes = CInt(cmbMins.Text)
        Seconds = CInt(cmbSecs.Text)
        Dim TS As New TimeSpan(Hours, Minutes, Seconds)     ' Create new TimeSpan value and set it
        Time1.Add(TS)                                       ' Add it to the initial time to give end time

A couple of lines of debugging coide have shown that Time1 never gets the value of TS added to it. If anyone could point out where I'm going wrong I'd be most grateful.