Attribute VB_Name = "modDialogs" Enum Dialogtypes CONTROL_PANEL_NT_9x = 1 ACCESSABILITY_PROPERTIES_KEYBOARD_NT_9x = 2 ACCESSABILITY_PROPERTIES_SOUND_NT_9x = 3 ACCESSABILITY_PROPERTIES_DISPLAY_NT_9x = 4 ACCESSABILITY_PROPERTIES_MOUSE_NT_9x = 5 ACCESSABILITY_PROPERTIES_GENERAL_NT_9x = 6 ADDREMOVE_PROGRAMS_PROPERTIES_INSTALLUNINSTALL_NT_9x = 7 ADDREMOVE_PROGRAMS_PROPERTIES_WINDOWS_SETUP_NT_9x = 8 ADDREMOVE_PROGRAMS_PROPERTIES_STARTUP_DISK_NT_9x = 9 DISPLAY_PROPERTIES_BACKGROUND_NT_9x = 10 DISPLAY_PROPERTIES_SCREEN_SAVER_NT_9x = 11 DISPLAY_PROPERTIES_APPEARANCE_NT_9x = 12 DISPLAY_PROPERTIES_SETTINGS_NT_9x = 13 DISPLAY_PROPERTIES_INSTALL_SCREEN_SAVER_NT_9x = 14 FIND_FAST_PROPERTIES_GENERAL_NT_9x = 15 INTERNET_PROPERTIES_GENERAL_NT_9x = 16 INTERNET_PROPERTIES_SECURITY_NT_9x = 17 INTERNET_PROPERTIES_CONTENT_NT_9x = 18 INTERNET_PROPERTIES_CONNECTION_NT_9x = 19 INTERNET_PROPERTIES_PROGRAMS_NT_9x = 20 INTERNET_PROPERTIES_ADVANCED_NT_9x = 21 REGIONAL_SETTINGS_PROPERTIES_REGIONAL_SETTINGS_NT_9x = 22 REGIONAL_SETTINGS_PROPERTIES_NUMBER_NT_9x = 23 REGIONAL_SETTINGS_PROPERTIES_CURRENCY_NT_9x = 24 REGIONAL_SETTINGS_PROPERTIES_TIME_NT_9x = 25 REGIONAL_SETTINGS_PROPERTIES_DATE_NT_9x = 26 REGIONAL_SETTINGS_PROPERTIES_INPUT_LOCALES_NT_9x = 27 JOYSTICK_PROPERTIES_JOYSTICK_NT_9x = 28 MOUSE_PROPERTIES_NT_9x = 29 KEYBOARD_PROPERTIES_NT_9x = 30 PRINTERS_NT_9x = 31 FONTS_NT_9x = 32 MICROSOFT_EXCHANGEOUTLOOK_PROPERTIES_GENERAL_NT_9x = 33 MULTIMEDIA_PROPERTIES_AUDIO_NT_9x = 34 MULTIMEDIA_PROPERTIES_VIDEO_NT_9x = 35 MULTIMEDIA_PROPERTIES_MIDI_NT_9x = 36 MULTIMEDIA_PROPERTIES_CD_MUSIC_NT_9x = 37 MULTIMEDIA_PROPERTIES_ADVANCEDDEVICES_NT_9x = 38 SOUNDS_PROPERTIES_NT_9x = 39 MODEM_PROPERTIES_GENERAL_NT_9x = 40 NETWORK_CONFIGURATION_9x = 41 NETWORK_CONFIGURATION_9x_NT = 42 DIAL_UP_NETWORKING_WIZARD_9x = 43 CREATE_SHARE_DIALOG_NT = 44 MANAGE_SHARES_DIALOG_NT = 45 ODBC_DATA_SOURCE_ADMINISTRATOR_GENERAL_NT_9x = 46 PASSWORD_PROPERTIES_CHANGE_PASSWORDS_9x = 47 COM_PORTS_PROPERTIES_GENERAL_NT = 48 SERVER_PROPERTIES_GENERAL_NT = 49 SYSTEM_PROPERTIES_GENERAL_NT_9x = 50 SYSTEM_PROPERTIES_DEVICE_MANAGER_9x = 51 SYSTEM_PROPERTIES_PERFORMANCE_9x = 52 SYSTEM_PROPERTIES_PERFORMANCE_9x_NT = 53 SYSTEM_PROPERTIES_ENVIRONMENT_NT = 54 SYSTEM_PROPERTIES_STARTUPSHUTDOWN_NT = 55 SYSTEM_PROPERTIES_HARDWARE_PROFILES_NT_9x = 56 SYSTEM_PROPERTIES_HARDWARE_PROFILES_NT_9x_NT = 57 SYSTEM_PROPERTIES_USER_PROFILES_NT = 58 ADD_NEW_HARDWARE_WIZARD_9x = 59 ADD_NEW_PRINTER_WIZARD_9x = 60 DIALING_PROPERTIES_MY_LOCATION__DRIVERS_NT = 61 THEMES_PROPERTIES_GENERAL_NT_9x = 62 DATETIME_PROPERTIES_NT_9x = 63 CHOOSE_TIME_ZONE_NT_9x = 64 TWEAKUI_DIALOG_GENERAL_NT_9x = 65 UNINTERUPTABLE_POWER_SUPPLY_PROPERTIES_GENERAL_NT = 66 MICROSOFT_WORKGROUP_POSTOFFICE_ADMIN_NT_9x = 67 OPEN_WITH_FILE_ASSOCIATIONS_NT_9x = 68 RUN_DISKCOPY_DIALOG_NT_9x = 69 CREATE_NEW_SHORTCUT_WIZARD_NT_9x = 70 CREATE_A_BRIEFCASE_NT_9x = 71 VIEW_FONTS_NT_9x = 72 VIEW_PRINTERS_NT_9x = 73 End Enum 'WhichDialog As Dialogtypes Sub ShowDialog(intThis As Integer) Select Case intThis Case 1 Call Shell("rundll32.exe shell32.dll,Control_RunDLL", 1) Case 2 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", 1) Case 3 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", 1) Case 4 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", 1) Case 5 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", 1) Case 6 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", 1) Case 7 Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 1) Case 8 Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", 1) Case 9 Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", 1) Case 10 Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 1) Case 11 Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", 1) Case 12 Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 1) Case 13 Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", 1) Case 14 Call Shell("rundll32.exe desk.cpl,InstallScreenSaver %1", 1) Case 15 Call Shell("rundll32.exe shell32.dll,Control_RunDLL findfast.cpl", 1) Case 16 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 1) Case 17 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,1", 1) Case 18 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,2", 1) Case 19 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,3", 1) Case 20 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4", 1) Case 21 Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,5", 1) Case 22 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 1) Case 23 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", 1) Case 24 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", 1) Case 25 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", 1) Case 26 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", 1) Case 27 Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,5", 1) Case 28 Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", 1) Case 29 Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 1) Case 30 Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 1) Case 31 Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", 1) Case 32 Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", 1) Case 33 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", 1) Case 34 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", 1) Case 35 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", 1) Case 36 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", 1) Case 37 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", 1) Case 38 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", 1) Case 39 Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", 1) Case 40 Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 1) Case 41 Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 1) Case 42 Call Shell("rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl", 1) Case 43 Call Shell("rundll32.exe rnaui.dll,RnaWizard", 1) Case 44 Call Shell("rundll32.exe ntlanui.dll,ShareCreate", 1) Case 45 Call Shell("rundll32.exe ntlanui.dll,ShareManage", 1) Case 46 Call Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl", 1) Case 47 Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 1) Case 48 Call Shell("rundll32.exe shell32.dll,Control_RunDLL ports.cpl", 1) Case 49 Call Shell("rundll32.exe shell32.dll,Control_RunDLL srvmgr.cpl", 1) Case 50 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 1) Case 51 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", 1) Case 52 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", 1) Case 53 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", 1) Case 54 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", 1) Case 55 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", 1) Case 56 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", 1) Case 57 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4", 1) Case 58 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5", 1) Case 59 Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", 1) Case 60 Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", 1) Case 61 Call Shell("rundll32.exe shell32.dll,Control_RunDLL telephon.cpl", 1) Case 62 Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", 1) Case 63 Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 1) Case 64 Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f", 1) Case 65 Call Shell("rundll32.exe shell32.dll,Control_RunDLL tweakui.cpl", 1) Case 66 Call Shell("rundll32.exe shell32.dll,Control_RunDLL ups.cpl", 1) Case 67 Call Shell("rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl", 1) Case 68 Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext", 1) Case 69 Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", 1) Case 70 Call Shell("rundll32.exe AppWiz.Cpl,NewLinkHere %1", 1) Case 71 Call Shell("rundll32.exe syncui.dll,Briefcase_Create", 1) Case 72 Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder", 1) Case 73 Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder", 1) End Select End Sub