Web Sayfası İçin Kısayol Yaratmak

Çoğu kişi bunun nasıl yapılacağını bilmek istiyor. Aslında çok kolay. Aşağıdaki kod varsayılan tarayıcınızı açarak yazmış olduğunuz adresi getirmeye başlar. Aşağıdaki kodu bir modulenin içine kopyalayın:

    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
Bu kodu da bir nesnenin herhangi bir olayına kopyalayın (ör: Command1_Click):
    Dim X
    X = ShellExecute(hwnd, "Open", "http://www.oocities.org/SiliconValley/Software/5465/", &O0, &O0, SW_NORMAL)