Sub GetDeviceInfo As String
Dim P As Phone
Dim manu As String = p.Manufacturer
Dim modl As String = p.Model
Dim prod As String = p.Product
Return manu & " - " & modl & " - " & prod
End Sub
Sub GetDeviceAPILevel () As Int
Dim P As Phone
Return p.SdkVersion
End Sub