LINK!

hvor skal knappen ligge ?

her er koden:

Private sub general():

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

Dim nhWnd As Long
End sub

Private sub command1_click()
lngretval = ShellExecute(&O0, \"open\", txtbrowser, vbNullString, vbNullString, vbNormalFocus)
End Sub

(i dette eksempel skal du lave en adresselinie, der skal hedde txtbrowser)
Du kan også bare få en kode, der kun kan åbne den adresse du har bestemt fra starten. det er denne her: (du skal bare skrive adressen med http:// i stedet for txtbrowser)

Private Sub command1_Click()
lngretval = ShellExecute(&O0, \"open\", http://www.eksperten.dk, vbNullString, vbNullString, vbNormalFocus)
End Sub

/jsc

Shell \"Start http://www.eksperten.dk/spm/66571\", vbHide

Shell \"Start http://www.eksperten.dk/spm/66571\", vbHide

Der skal ikke være ; efter \"