Dim Telefon As Phone
Dim TelefonID As PhoneId
Dim Message As String
Message=Message & "Auflösung:" & CRLF
Message=Message & Activity.Width & " x " & Activity.Height & CRLF & CRLF
Message=Message & "Hersteller:" & CRLF
Message=Message & Telefon.Manufacturer & CRLF & CRLF
Message=Message & "Model:" & CRLF
Message=Message & Telefon.Model & CRLF & CRLF
Message=Message & "Anbieter:" & CRLF
Message=Message & Telefon.GetNetworkOperatorName & CRLF & CRLF
Message=Message & "Netzwerk:" & CRLF
Message=Message & Telefon.GetNetworkType & CRLF & CRLF
Message=Message & "Verbindung:" & CRLF
Message=Message & Telefon.GetDataState & CRLF & CRLF
Message=Message & "Telefon Typ:" & CRLF
Message=Message & Telefon.GetPhoneType & CRLF & CRLF
Message=Message & "System:" & CRLF
Message=Message & SDKversion(Telefon.SDKversion) & CRLF & CRLF
Message=Message & "IMEI:" & CRLF
Message=Message & TelefonID.GetDeviceId
Label1.Text=Message