Getting the Android OS version

'[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