Hyperlink

Dvs. at den skal åbne din browser på en given side??

Jepser! Der er et hyperlink i toppen af applikationen, så folk kan klikke på den - og dermed blive dirigeret hen til skaberens hjemmeside!

På samme måde som før går du ind under Project... References, og tilføjer \"Microsoft Internet Controls\"

Herefter ser din kode således ud:

Option Explicit
Dim exp As InternetExplorer

Private Sub Form_Load()
    Set exp = New InternetExplorer
End Sub

Private Sub lblMitLink_Click()
    exp.Visible = True
    exp.Navigate \"http://www.microsoft.com\"
End Sub

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 Form_Load()
\'Label1 Tekst
Label1.Caption = \"http://www.eksperten.dk/\"

\'Label1 farve blå
Label1.ForeColor = &HFF0000

\'Label1 understregning
Label1.FontUnderline = True

\'Label1 Auto størrelse
Label1.AutoSize = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
\'Label1 tekst farve blå
Label1.ForeColor = &HFF0000
End Sub

Private Sub Label1_Click()
\'Åbner http://www.eksperten.dk/
ShellExecute Me.hWnd, \"open\", \"http://www.eksperten.dk/\", \"\", \"\", 5
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
\'Label1 tekst farve rød
Label1.ForeColor = &HFF&
End Sub

der skal ikke være et ; efter \"http://www.eksperten.dk/\"