This example creates a new post with title and content:
' Create a new post with title.
Dim b1 As New Blogger1
b1.Login = "MyLogin"
b1.Password = "MyPassword"
b1.ServiceUrl = "http://www.livejournal.com/interface/blogger"
' Get the blog ID of the 1st blog for this account.
Dim blogId As String
success = b1.GetUsersBlogs()
If (success = 1 And (b1.NumBlogs > 0)) Then
blogId = b1.GetBlogId(0)
Else
MsgBox "Failed to get users blogs!"
End If
Dim postId As String
publish = 1
postId = b1.NewPostWithTitle(blogId, "This is the title", "This is the content", publish)
MsgBox "Post ID = " + postId