public Sub AppVersion As String
Try
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim version As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
Return version
Catch
Log("AppVersion " & LastException.Message)
Return 0
End Try
End Sub