March 24, 2001

ShowHtmlHelp – Show a HTML Help page

Private Declare Function HtmlHelpTopic Lib “hhctrl.ocx” Alias “HtmlHelpA” _ (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, _ ByVal dwData As String) As Long’A HTML Help file is composed by many HTML pages, compiled in one CHM file.’This routine opens the HTML Help browser loading the

ShowNetworkDiskConnectionDialog – Show a dialog to connect or disconnect a drive

Private Declare Function WNetConnectionDialog Lib “mpr.dll” (ByVal hwnd As Long, _ ByVal dwType As Long) As LongPrivate Declare Function WNetDisconnectDialog Lib “mpr.dll” (ByVal hwnd As Long, _ ByVal dwType As Long) As Long ‘ show the dialog to connect/disconnect a network disk” If the argument is True it shows the

BrowseFolders – Show the BrowseForFolders standard dialog

Option ExplicitPrivate Declare Function SHGetPathFromIDList Lib “shell32.dll” Alias _ “SHGetPathFromIDListA” (ByVal pidl As Long, ByVal pszPath As String) As LongPrivate Declare Function SHGetSpecialFolderLocation Lib “shell32.dll” (ByVal _ hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As LongPrivate Declare Function SHBrowseForFolder Lib “shell32.dll” Alias _ “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO)

ShowColorDialog – Show the standard color dialog

Private Type ChooseColorStruct lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As Long flags As Long lCustData As Long lpfnHook As Long lpTemplateName As StringEnd TypePrivate Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” _ (lpChoosecolor As ChooseColorStruct) As LongPrivate Declare Function OleTranslateColor Lib “oleaut32.dll” (ByVal

ShowNetworkPrinterConnectionDialog – Connect or disconnect a printer

Private Declare Function WNetConnectionDialog Lib “mpr.dll” (ByVal hwnd As Long, _ ByVal dwType As Long) As LongPrivate Declare Function WNetDisconnectDialog Lib “mpr.dll” (ByVal hwnd As Long, _ ByVal dwType As Long) As Long ‘ Show the dialog to connect/disconnect a network printer’ If the argument is True it shows the

ExplodeForm – Show a form with an explode effect

Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)’ Show a form with an explosion effect.’ the lNumSteps parameter is the number of steps to increase the form size from ‘ 0 to the original size’ the lStepDuration argument is the number of milliseconds between each step’ Example:’ Private