Private Sub Command2_Click()
WebBrowser1.Document.All("submit").Click
End Sub

Private Sub Command3_Click()
WebBrowser1.Document.getElementById("submit").Click
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "C:/Users/Abkanis/Documents/prueba.html"
End Sub

<input type=button ID=submit value=Enviar onclick="javascript:alert('hola')"/>
<input type=button name=submit value=Enviar onclick="javascript:alert('hola que tal')"/>

Private Sub Form_Resize()
Select Case Me.WindowState
Case Is = 0
Call Shell("notepad", 1) 'abre normal
Case Is = 1
Call Shell("notepad", 2) 'abre minimizado
Case Is = 2
Call Shell("notepad", 3) 'abre maximizado
End Select
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then
MsgBox "puedes poner el codigo k kieras"
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "hola"
End If
End Sub