'Sharedフィールドを初期化 Dim oFields As FieldInfo() = GetType(clsGlobal).GetFields(BindingFlags.Public Or BindingFlags.Static) For Each oField In oFields If oField.IsLiteral = True Then Continue For '定数はスキップ If oField.FieldType = GetType(String) Then oField.SetValue(Nothing, "") Else oField.SetValue(Nothing, If(oField.FieldType.IsValueType, Activator.CreateInstance(oField.FieldType), Nothing)) End If Next