Private Sub Command1_Click()
    WB.Document.Forms(1).user.Value = Text1.Text            'User
    WB.Document.Forms(1).passwrd.Value = Text2.Text         'Pass
    WB.Document.Forms(1).cookielength.Value = Text3.Text    'Tiempo de sesión
    WB.Document.Forms(1).submit                             'Apretar el Boton Ingresar
End Sub
 
Private Sub Form_Load()
    WB.Navigate "http://foro.elhacker.net/login.html"       'Navegamos la Pagina del Loggin
End Sub