Private Sub txtURL_KeyPress(KeyAscii As Integer)
On Error Resume Next
' Seite beim Drücken von ENTER im WebBrowser anzeigen
If KeyAscii = 13 Then
    KeyAscii = 0
    Dim bresult As Integer
    bresult = RASConnect(Me.hWnd)
    webmain.Navigate txturl.Text
End If
End Sub

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=