Sub Button1Click(sender As Object, e As EventArgs)
  Dim Username, Passwort, UpdateTXT As String
  'identi.ca-Userdaten...		
  Username = "testuser"
  Passwort = "123456789"
  ' String aus dem TExtfeld lesen....
  UpdateTXT = txtDent.Text
  'aufrufen von curl.exe
  Shell("curl -u " + Username + ":" + Passwort + " -d status=" + Chr(34) + _
    UpdateTXT + Chr(34) +  " http://identi.ca/api/statuses/update.xml")
 
End Sub