Button clicken vb6

[Ichbinalex]

Hallo ich möchte gerne den Submit button klicken auf meine Seite. Quelltext vom Button sieht so aus

<table class="formarea" width="100%" cellspacing="0" cellpadding="0">
<form onsubmit="submitonce()" autocomplete="off" target="ekran" method="post" action="shoutbox_view_v.php" name="post"/>
<tbody>
<tr>
<td class="row1" valign="bottom" nowrap="" align="center">
<span class="gensmall">
<input type="hidden" value="Anonymous" name="name"/>
<input type="hidden" value="-1" name="sb_user_id"/>
<input class="post" type="text" onkeyup="storeCaret(this);" onclick="storeCaret(this);" onselect="storeCaret(this);" value="" maxlength="500" size="20" style="font-size: 9px; height: 18px;" name="message"/>
<br/>
<input type="hidden" value="" name="msg"/>
<input type="hidden" value="submit" name="mode"/>
<input class="button" type="submit" style="font-size: 9px; height: 18px;" value="Absenden" name="submit_button"/>

Und mein Projekt sieht so aus

Option Explicit

Dim bLoaded As Boolean
Dim Asdf
Private Sub Form_Load()
  WebBrowser1.Navigate "XXXX/shoutbox_send_v.php"
End Sub
Private Sub cmdLogin_Click()
Asdf = "1"
Timer1.Enabled = True
  ' hier kann auch der Formularname angegeben werden,
    ' falls vorhanden und bekannt ( .Forms("formularname") )
    On Error GoTo ErrHandler
  With WebBrowser1.Document.post
    ' Eingabefelder ausfüllen
    .elements("message").Value = Text1 + "   " + Text2
    
          End With
  On Error GoTo 0
  Exit Sub
 
ErrHandler:
  MsgBox "Es ist ein Fehler aufgetreten." & vbCrLf & _
    "Evtl. existiert das angegebene Formular oder eines der " & _
    "angegebenen Eelemente nicht.", vbExclamation
End Sub

Private Sub Timer1_Timer()
If Asdf = 0 Then
With WebBrowser1.Document.post
.submit
End With
Timer1.Enabled = False
Else
Asdf = Asdf - 1
End If
End Sub

Kann mir jemand sagen warum das nicht geht?