Private Declare Sub mouse_event Lib “user32” (ByVal dwFlags As Long, _ ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, _ ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_LEFTDOWN
Option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Enum mbBorderTypeConstants mbRaised = 0 mbSunken = 1 mbEtched = 2 mbBump =
‘ CCONSOLE Class” Creates a console window and writes to it’ Example:’ Dim cons As New CConsole’ cons.WriteString “Hello World”Private Declare Function AllocConsole Lib “kernel32” () As LongPrivate Declare Function
Private Declare Function ExtractIcon Lib “shell32.dll” Alias “ExtractIconA” _ (ByVal hInst As Long, ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As LongPrivate Declare Function DrawIcon Lib “user32” (ByVal
You can programmatically start the Shortcut Wizard from your code, to give the end user the capability to create a new shortcut: Shell “rundll32.exe AppWiz.Cpl, NewLinkHere ” & App.Path, 1