Sub AppVersion(intval As Boolean) As Object
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim version As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
Dim sver As String = version
Dim intver As Int = sver.Replace(".", "")
If intval Then
Return intver
Else
Return version
End If
End Sub
Sub AppName As String
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
Return name
End Sub