I want a simple disaply on a form that can display the times in major cities throughout the world.........

I used this, but I noticed it wasn't working properly >

Public Sub getTimes()

NewYork = Time - #4:00:00 AM#
FrankFurt = Time + #2:00:00 AM#
Tokyo = Time + #9:00:00 AM#
Text1.Text = Format(Time, "Long Time")


Text2.Text = Format(NewYork, "Long Time")

Text3.Text = Format(FrankFurt, "Long Time")

Text4.Text = Format(Tokyo, "Long Time")
End Sub




i.e., where Time is just the time on my computer (GMT), so new York is 4 hrs behind, but I think I am subtracting 4 o'clock, not 4 hrs.......how can I just take away 4 hrs........? etc for the rest.

Thanx for any help

Steven