vb
'''copy file .json to My.Application.Info.DirectoryPath
Dim Scopes = GmailService.Scope.GmailSend
Dim ApplicationName As String = "Gmail API .NET Quickstart"
Dim credential As UserCredential
Dim stream = New FileStream(My.Application.Info.DirectoryPath + "\client_secret.json", FileMode.Open, FileAccess.Read)
Dim credPath As String = My.Application.Info.DirectoryPath + "\"
credential = GoogleWebAuthorizationBroker.AuthorizeAsync(GoogleClientSecrets.Load(stream).Secrets, {Scopes}, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result
stream.Close()
Dim service = New GmailService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = ApplicationName})
Dim request As UsersResource.LabelsResource.ListRequest = service.Users.Labels.List("me")
Dim Labels As IList
Labels = request.Execute().Labels
If IsDBNull(Labels) = False And Labels.Count > 0 Then
Dim labelItem As Label
For Each labelItem In Labels
Console.WriteLine("{0}", labelItem.Name)
Next
Else
Console.WriteLine("No labels found.")
End If
Console.Read()