by Chukwuma Omolu (1 Submission)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 4th August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This program allows you to click on a link to a URL
API Declarations
'make the borderstyle of the form 1 - fixed
'Go into the Project menu, click References, scroll and look for Microsoft 'Internet Controls. If its not checked then check it and click the appropriate 'button to continue
'
'~~~~~~~~~~~~~~~~~~~~~
'Draw a label. Go into the font property, click on the box by the right with 'the small dots ... (ellipsis). Choose underline in the font's dialog and click 'ok.
'next you'll have to go to the "forecolor" property, change it to any color of 'ur choice.
'you as well have to change the mouseicon to any icon of your choice, make sure 'that the mousepointer is set to 99 - custom.
'The code below should be in the General declarations section.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'This program is dedicated to you Bernie Heck and to Luckyprince Chidi and my 'wife Chioma, and her brother Nnanna.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'fell free to send me a mail if u detect any bugs in this program
'"************The main code begins here*******************************
Dim bern As InternetExplorer
Set bern = CreateObject("internetexplorer.application")
End Sub
Private Sub Label1_Click() ' thie code is necessary to be here
bern.Visible = True
bern.navigate "mail.yahoo.com"
End Sub