'[url=http://developer.android.com/sdk/android-2.2.html]Android 2.2 Platform | Android Developers[/url]
Dim p As phone
Dim OS As String
Select p.SdkVersion
Case 2 : OS = "1.1"
Case 3 : OS = "1.5"
Case 4 : OS = "1.6"
Case 5 : OS = "2.0"
Case 6 : OS = "2.0.1"
Case 7 : OS = "2.1"
Case 8 : OS = "2.2"
Case 9 : OS = "2.3"
Case 10 : OS = "2.3.x" ' 2.3.3 or 2.3.4
Case 11 : OS = "3.0"
Case 12 : OS = "3.1"
Case 13 : OS = "3.2"
Case Else : OS = "?"
End Select
Return OS