Post-Data con Control WebBrowser?

[seba123neo]

Código vb:

Private Sub Command1_Click()
 With WebBrowser1
        .Visible = True
        .Navigate "http://www.tupagina.com"
        Do While .Busy = True: DoEvents: Loop
        .Document.nombredelformweb.Username.Value = "tuusuario"
        .Document.nombredelformweb.Passw.Value = "tupassword"
        .Document.nombredelformweb.nombredelboton.Click
    End With
End Sub