at åbne websider med visual basic

Hvad er Source for en størrelse - du har ikek Dim'met den?

'Form1.frm:

Private Sub link_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
    Dim link
    link = ShellExecute(hwnd, "Open", "http://url.dk", &O0, &O0, SW_NORMAL)
End If

End Sub
'***************************************************

'module1.bas:
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
Public Const SW_NORMAL = 1

TAk---det virker...nu...

Og takker for point! ;)