Sub whlTime_Closed(Canceld As Boolean, Time As String)
If Canceld = False Then
lblDateTime.Text = lblDateTime.Text & " " & Time
'STARTTIMEPORTD1 = DateUtils.SetDateAndTime(newyear, newmonth, newday, newhour, newmin, 0)
'(starttimeportD1 being the alarm that needs to be set)
End If
End Sub