Option Explicit
 
' benötigte API-Deklaration
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Private Sub Combo1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    ' Bei ENTER, URL anzeigen
    KeyAscii = 0
    If Len(Combo1.Text) > 0 Then
      ShellExecute Me.hWnd, "open", Combo1.Text, "", "", 1
    End If
  End If
End Sub

Private Sub Command1_Click()
  If Len(Combo1.Text) > 0 Then
    ShellExecute Me.hWnd, "open", Combo1.Text, "", "", 1
  End If  
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de