Public Appkey As String = "your app key"
Public AppSecret As String = "your app secret"
Private dpx As DropboxOAuth2
dpx.Initialize(Me, "dpx", Appkey, "account_info.read account_info.write contacts.write file_requests.read file_requests.write files.content.read files.content.write files.metadata.read files.metadata.write sharing.read sharing.write", AppSecret, File.DirData("Dropbox"))
dpx.GetAccessToken
Wait For dpx_AccessTokenAvailable (Success As Boolean, token As String)
If Success = True Then
Log("user token="&token)
Get_Account_info
Else
Log("Error accessing account.")
End If