「ASP.NETにおいて、static変数は「リクエスト単位」のグローバル変数『ではない』」ことへの対応で役立ちそうなコード

'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