How to place hyperlinks on a VB 6.0 form 4

[allis]

I need to have a form in my program with a listing of hyperlinks on which the users can click and then that site will open - how do I do this?

Thank you

 

[ca8msm]

You can use the ShellExecute API i.e

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
Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
ShellExecute Me.hwnd, vbNullString, "[URL unfurl="true"]http://www.tek-tips.com",[/URL] vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Simply create a label for each URL and change the label caption and URL in the ShellExecute method.

 

[tbuch]

I use a label and the following code:

Private Sub lblURL_Click()
Dim myProgram
myProgram = Shell("C:\Program Files\Internet Explorer\iexplore.exe [URL unfurl="true"]http://www.sfcc.edu",[/URL] vbMaximizedFocus)
End Sub

Bear in mind that everything from

myProgram =

to

vbMaximizedFocus)

is on one line.

tbuch