Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
Dim ApplicationResources As Resources
End Sub
' ' returns the application string resource identified by TagValue
' if no string resource is found then the DefaultValue is returned
Sub GetApplicationString(TagValue As String, DefaultValue As String) As String
Dim ResourceId As Int
ResourceId=ApplicationResources.GetIdentifier(TagValue, "string", ApplicationResources.PackageName)
If ResourceId=0 Then
Return DefaultValue
Else
Return ApplicationResources.GetString(ResourceId)
End If
End Sub