Dim tokens As New OAuthTokens
 
    tokens.AccessToken = "AccessToken"
    tokens.AccessTokenSecret = "AccessTokenSecret"
    tokens.ConsumerKey = "ConsumerKey"
    tokens.ConsumerSecret = "ConsumerSecret"
 
 
    Dim options As New StatusUpdateOptions
    Dim tweet As TwitterStatus = TwitterStatus.Update(tokens, "Ein neuer" & _
      "Tweet", options).ResponseObject