<StructLayout(LayoutKind.Sequential, Pack:=2, CharSet:=CharSet.Unicode)> _
    Public Structure TIME_ZONE_INFORMATION
        Public bias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public StandardName As String
        Public StandardDate As SYSTEMTIME
        Public StandardBias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public DaylightName As String
        Public DaylightDate As SYSTEMTIME
        Public DaylightBias As Integer
        Public Sub New(Optional ByVal charsize As Integer = 32)
            StandardName = New String(CChar(" "), charsize)
            DaylightName = New String(CChar(" "), charsize)
        End Sub
    End Structure

Public Class ClassTimeZoneVar
    <StructLayout(LayoutKind.Sequential, Pack:=2, CharSet:=CharSet.Unicode)> _
    Public Structure TIME_ZONE_INFORMATION
        Public bias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public StandardName As String
        Public StandardDate As SYSTEMTIME
        Public StandardBias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public DaylightName As String
        Public DaylightDate As SYSTEMTIME
        Public DaylightBias As Integer
        Public Sub Inizial()
            StandardName = New String(CChar(" "), 32)
            DaylightName = New String(CChar(" "), 32)
        End Sub
    End Structure