Åbne associeret program i VBA

Prøv med shellexecute:

ShellExecute(0, "Open", "c:\test.htm", "", "", 5)

Hej.

Min er erfaring med VB5 er, at der skal lidt mere til.  I formen:

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

Og under knappen, i mit eksempel - en label.  Selvfølgelig skal der ikke stå frmordbog hos dig!

Private Sub labprod_Click()
    ret = ShellExecute(Me.hwnd, "Open", "http://www.jkfsoft.dk/ordbog.htm", "", App.Path, 1)
  If ret > 32 Then
      frmordbog.WindowState = 1
    Else
      X = MsgBox("Kunne ikke finde en standard-browser.", 48, "Medd. fra 'Åben hjælp'.")
  End If
End Sub

M.v.h.  Jørn

Tak!