This example program fetches information about the user's blogs and displays the name, ID, and URL of each.
Dim b1 As New Blogger1
b1.Login = "MyLogin"
b1.Password = "MyPassword"
b1.ServiceUrl = "http://www.livejournal.com/interface/blogger"
success = b1.GetUsersBlogs()
If (success = 1) Then
List1.AddItem "Number of blogs = " + Str(b1.NumBlogs)
For i = 0 To b1.NumBlogs - 1
List1.AddItem "Blog #" + Str(i)
List1.AddItem " Name: " + b1.GetBlogName(i)
List1.AddItem " ID: " + b1.GetBlogId(i)
List1.AddItem " Url: " + b1.GetBlogUrl(i)
List1.AddItem "---"
Next
Else
MsgBox "Failed to get users blogs!"
End If