ABMSocialShare is component for Social Network Sharing. It is based on jsSocials.

Dim socshare As ABMSocialShare
socshare.Initialize(page, "socshare", "http://alwaysbusycorner.com/abmaterial/", "ABMaterial is fantastic!", ABM.SOCIALSHAREBUTTONTYPE_BUTTONLABELCOUNT)
socshare.AddEmail
socshare.AddFacebook
socshare.AddGooglePlus
socshare.AddLinkedIn
socshare.AddPintrest("https://www.youtube.com/watch?v=aGjFeBTb4Sc")
socshare.AddTwitter("RealAlwaysBusy", "ABMaterial,B4X")
socshare.AddWhatsApp
page.CellR(1,1).AddComponent(socshare)