Sub sc_result(atype As String,Values As String)
Dim p As PhoneIntents
ImageView1.Bitmap = qr.QR_Encode(Values,100dip)
If Values contain "http://" or "www" THEN
msgbox("IS URL", "IS URL")
else if Values contain "ONLY NUMBERS" THEN
msgbox("IS NUMBER", "IS NUMBER")
else
msgbox("IS TEXT", "IS TEXT")
End Sub