this works
B4X:
Dim Result As FacebookResult = Main.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.jpg" ,"Achou Ganhou", Null, "O aplicativo que distribui dinheiro pela cidade confira!")
If Result.Success = True Then
updatecompartilhou
Else
Msgbox("Não foi possível compartilhar! tente novamente","Achou Ganhou")
End If