sub button1_Click
timestart= datetime.now
end sub
sub button2_click
Gottime
end sub
private sub GotTime
timestart = DateTime.now
difftme = timestop-timestart
gottime = DateTime.Time(difftime)
gottime= gottime.SubString2(6,8)
ToastMessageShow("The time is (second):" & gottime)
end sub