'Initialize the library
Dim FB As Facebook
'Get the following 3 fields from Facebook after creating a Facebook app.
Dim AppID As String = "<APP_ID_FROM_FACEBOOK>"
Dim AppSecret As String = "<APP_SECRET_FROM_FACEBOOK>"
Dim myWebsite As String = "<LINK_TO_THE_WEBSITE_IN_REDIRECT_URI>"
FB.Initialize(Activity, Me, "myFB", AppID, AppSecret, myWebsite)
'Login to Facebook
FB.Login
'Get your profile
FB.GetMyProfile
...
'Display profile fields
Sub myFB_MyProfile_Response(Profile As Map)
Dim Temp As String
For I = 0 To Profile.Size - 1
Temp = Temp & Profile.GetKeyAt(I) & ": " & Profile.GetValueAt(I) & CRLF
Next
Msgbox(Temp, "My Profile")
End Sub