Dim italy As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Central European Standard Time")
Dim userInput As Date = Date.Parse("21-mar-2011 00:00")
Dim utcDate As Date = TimeZoneInfo.ConvertTimeToUtc(userInput, italy)
Dim italyDate As Date = TimeZoneInfo.ConvertTimeFromUtc(utcDate, italy)
Response.Write(italyDate)