Region Module Attributes
If PackageName = "fg.Pro_version" Then
#ApplicationLabel: @string/app_name_pro
Else
#ApplicationLabel: @string/app_name_free
End If
...
...
#End Region
Sub Activity_Create(FirstTime As Boolean)
...
...
End Sub
Sub GetPackageName As String
Dim r As Reflector
Return r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
End Sub