So schwer ist das nicht. Schreib' in den Definitionsteil eines ModulsDeclare Function ShellExecuteA Lib "shell32.dll" (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
Function ShellExec(ByVal Path As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal Operation As String = "Open") As Boolean
ShellExec = (ShellExecuteA(0&, Operation, Path, vbNullString, vbNullString, WindowStyle) > 32)
End Function
Der Aufruf geht dann beispielsweise mitShellExec " http://www.vb-fun.de"
oderShellExec "C:\Bilder\Pr0n\Kollektionen\Lisa\1.jpg"
Viel Spaß damit!