B4A Library Library Create ShortLink

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Dim createshortlink As ShortLink
    Dim url As String
    url = "https://www.google.it/search?sclient=psy-ab&biw=1600&bih=775&site=webhp&q=link+molto+lunghi+ma+molto+molto+lunghi&oq=link+molto+lunghi+ma+molto+molto+lunghi&gs_l=hp.3...1985656.1989803.0.1990495.22.14.0.0.0.0.0.0..0.0....0...1c.1.64.psy-ab..22.0.0.BN3qzQhL1aY&pbx=1&bav=on.2,or.r_cp.&bvm=bv.98197061,d.bGQ&ion=1&ech=1&psi=DKqsVY_pAcKtygPz_pjYAw.1437379086446.7&ei=DaqsVbuaDcjXygO3qK_oCA&emsg=NCSR&noj=1"
    createshortlink.Initialize(url,"Fe5pwHzYKdmshHMC2Kq7NUIN0X3Ap1J54u4jsn62nFgdNmBJX9", Me, "check_short")
   
End Sub

Sub check_short(valore As typeLevel)
LogColor(valore.link, Colors.Red)
ToastMessageShow(valore.link, True)
Msgbox(valore.link, "Messaggio")
End Sub