VB6.0 直接打印 PDF Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As Long 在VB6.0中，直接打印PDF文档通常涉及到使用API函数来调用系统自带的PDF阅读器（如Adobe Acrobat Reader）进行打印操作。这个过程不依赖于任何特定的控件或组件，而是通过Windows壳层API（Shell API）来实现。下面我们将详细探讨如何在VB6.0中实现这一功能，以及相关的知识点。 我们需要导入`ShellExecuteEx`函数，它是Windows壳层库`shell32.dll`的一部分。`ShellExecuteEx`函数允许我们执行各种与文件相关的操作，包括打开、编辑、打印等。函数声明如下： ```vb Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As Long ``` 接下来，定义一个结构体`SHELLEXECUTEINFO`，它包含了执行操作所需的参数信息： ```vb Private Type SHELLEXECUTEINFO cbSize As Long '结构体大小 fMask As Long '标志，用于指定要使用的成员 hwnd As Long '父窗口句柄 lpVerb As String '操作字符串，如"open", "print" lpFile As String '要执行的文件名 lpParameters As String '参数 lpDirectory As String '文件所在的目录 nShow As Long '窗口显示模式 hInstApp As Long '应用程序实例句柄 lpIDList As Long '项ID列表 lpClass As String '窗口类 hkeyClass As Long '注册表键 dwHotKey As Long '热键 hIcon As Long '图标句柄 hProcess As Long '进程句柄 End Type ``` 在事件处理程序（例如`Command1_Click`）中，我们可以创建并填充`SHELLEXECUTEINFO`结构体，然后调用`ShellExecuteEx`函数来执行打印操作： ```vb Private Sub Command1_Click() Dim RetVal As Long Dim ShExInfo As SHELLEXECUTEINFO With ShExInfo .cbSize = Len(ShExInfo) '设置结构体大小 .fMask = &H40 '指定要使用的成员（仅使用SHOWWINDOW） .hwnd = 0 '没有父窗口，设为0 .lpVerb = "print" '指定操作为"print"，即打印 .lpFile = "C:\Users\business47\Desktop\FR-A-126-01 周末工作记录单.pdf" 'PDF文件路径 .lpParameters = "" '不需要额外参数，留空 .lpDirectory = vbNullChar '文件所在目录，这里使用默认值 .nShow = 0 '窗口显示模式，0表示隐藏 End With RetVal = ShellExecuteEx(ShExInfo) '执行操作 If RetVal = 0 Then Exit Sub '如果执行失败，退出子程序 End If End Sub ``` 在上述代码中，`.lpVerb = "print"` 指定了我们要执行的操作是打印。`ShellExecuteEx`函数会启动PDF阅读器，并自动调用其打印功能。需要注意的是，这种方法依赖于用户的默认PDF阅读器支持打印命令，通常是Adobe Acrobat Reader或其他具有类似功能的应用。 此外，由于`ShellExecuteEx`函数的返回值可以用来判断操作是否成功，当`RetVal`等于0时，表示执行失败，可以采取相应的错误处理措施。 总结起来，VB6.0直接打印PDF的实现主要涉及以下知识点： 1. 使用API函数：调用`ShellExecuteEx`函数，来自`shell32.dll`库。 2. 结构体编程：定义`SHELLEXECUTEINFO`结构体，用于存储执行操作所需的信息。 3. Windows壳层操作：通过设置`lpVerb`为"print"，指示执行打印操作。 4. 错误处理：检查`ShellExecuteEx`的返回值，判断操作是否成功。 通过这些技术，VB6.0程序员可以在不引入额外组件的情况下，利用用户系统中的PDF阅读器实现PDF文档的直接打印。

标题中的“开机关机程序(VB6.0源代码)”指的是使用Visual Basic 6.0编程语言编写的一个应用程序，它可以实现计算机的启动和关闭功能。VB6.0是微软公司开发的一款面向对象的可视化编程工具，它允许开发者通过拖拽控件和编写事件驱动的代码来创建用户界面和应用逻辑。 在描述中，“开机关机程序”简单明了地概括了该程序的主要功能。这通常涉及到操作系统级别的操作，需要调用系统API函数来执行开机和关机的命令。在Windows系统中，这些API函数可能包括`InitiateSystemShutdown`或`InitiateSystemBoot`等，它们允许经过授权的程序执行系统的启动和关闭过程。 在VB6.0中实现这个功能，开发者需要具备以下关键知识点： 1. **VB6.0基本概念**：理解VB6.0的界面设计、控件使用、事件处理机制以及代码编写规则。 2. **API调用**：VB6.0虽然内置的功能有限，但可以通过`Declare`语句引入外部API函数，以利用操作系统提供的更底层的功能。 3. **API函数了解**：熟悉与开机关机相关的API函数，如`WinAPI`中的`InitiateSystemShutdown`函数用于关机，`SetSystemPowerState`或`InitiateSystemBoot`用于启动。 4. **权限管理**：执行开机关机操作需要相应的权限，开发者需要了解如何在程序中正确设置这些权限。 5. **错误处理**：在调用API函数时可能会遇到各种错误，因此需要编写适当的错误处理代码，确保程序的健壮性。 6. **程序结构**：理解如何组织代码，将用户界面和控制逻辑分开，使得程序易于理解和维护。 7. **事件触发**：在VB6.0中，可能需要通过按钮点击事件或其他用户交互来触发开机关机操作。 在压缩包内的文件“VB20081124-开机关机”可能是源代码文件，包含了实现这些功能的具体VB6.0代码。通过分析和学习这个源代码，可以深入了解如何在VB6.0环境下编写此类程序。 这个项目对于学习VB6.0编程和理解系统级操作有很好的实践价值。通过阅读和理解源代码，不仅可以学习到VB6.0的基本语法和API调用方法，还能提升处理系统级别任务的能力。对于初学者，这是一个很好的起点，对于有经验的开发者，这也是一个复习基础知识和深入研究系统级编程的实例。

基于MSFlexGrid开发，可完全平替，拥有相当丰富的属性、方法和事件，功能强大可媲美VSFlexGrid。 开发者：Krool，GitHub地址：https://github.com/Kr00l/VBFLXGRD 在当今的软件开发领域，表格控件是用户界面中不可或缺的一部分，尤其是在需要处理大量数据时。Krool所开发的VBFlexGrid，作为一个开源的表格控件，对于VB6.0的开发者们来说是一个福音。它基于MSFlexGrid控件开发，不仅完全兼容其功能，还在功能上进行了大量的增强和扩展。 VBFlexGrid控件提供了一系列丰富的属性、方法和事件，使得开发者能够更加灵活和高效地处理表格数据。这些属性允许开发者自定义表格的外观和行为，如调整字体、颜色、边框样式等。而方法则提供了一系列编程接口，用于在运行时动态操作表格中的数据和结构，例如添加、删除或修改行和列。丰富的事件则确保了开发者能够捕捉到用户的交互行为，比如点击、双击、滚动等，从而在事件处理函数中作出相应的逻辑处理。 VBFlexGrid的功能之强大，足以与VSFlexGrid相媲美。VSFlexGrid是一个更为知名的表格控件，它通常用于.NET框架中，提供了一系列先进的功能，例如单元格合并、打印、导出等。而VBFlexGrid则将这些功能引入到VB6.0的开发环境中，使得在VB6.0下开发复杂表格应用成为可能。 Krool不仅提供了一个功能丰富的表格控件，还将其开源，并托管在GitHub上。这使得全球的VB6.0开发者都能够免费获取源代码，不仅可以用它来开发应用程序，还可以对其进行学习、修改和扩展。开发者们可以通过访问Krool提供的GitHub地址（https://github.com/Kr00l/VBFLXGRD），查看详细的文档说明，下载源代码，甚至直接参与到项目中，为VBFlexGrid贡献自己的力量。 VBFlexGrid的开源特性，加上它对MSFlexGrid的兼容性，使其成为VB6.0开发社区中一个重要的资源。它不仅提高了开发效率，降低了开发成本，而且为那些仍然使用VB6.0作为主要开发工具的开发者们提供了一个可靠的解决方案。此外，由于VBFlexGrid的强大功能，即使是新接触VB6.0的开发者，也可以通过这个控件快速构建出具有专业水准的表格应用。 Krool开发的VBFlexGrid是VB6.0开发领域中一个十分强大的表格控件，它的开源特性、功能丰富性以及对MSFlexGrid的兼容性，使得它成为许多VB6.0项目的首选表格解决方案。开发者们通过使用这个控件，可以大大提高开发效率，降低开发成本，并能够构建出功能强大、用户体验优良的表格应用。

在IT行业中，ICO图标是一种特殊的图像格式，主要用于网站的favicon，即浏览器标签页上的小图标。这个主题涉及VB6（Visual Basic 6）编程环境，通过VB6来创建和处理ICO图标。以下是对这个主题的详细说明： 1. **ICO格式**：ICO是一种存储多种尺寸和颜色深度的图像文件格式，使得图标在不同的设备和分辨率下都能显示得清晰。它通常包含多个不同大小的图像，例如16x16像素、32x32像素等，并且支持透明效果。 2. **VB6编程**：Visual Basic 6是微软开发的一款面向对象的编程工具，广泛用于Windows应用程序的开发。它提供了直观的用户界面设计工具和强大的编程语法，适合初学者和专业开发者。 3. **在VB6中处理图像**：VB6本身并不直接支持ICO格式，但可以通过引入GDI+（Graphics Device Interface Plus）或者第三方库来实现ICO文件的读取和写入。GDI+是Windows系统中用于图形处理的API，可以用来创建、修改和显示图像。 4. **源码解析**：在"ICO源码"这个压缩包中，可能包含的是VB6代码示例，这些代码可能演示了如何读取ICO文件、提取其中的不同尺寸的图像、创建新的ICO文件或将位图转换为ICO格式。源码学习可以帮助理解ICO图标处理的底层逻辑。 5. **VB6控件和函数**：在VB6中，可能使用`Picture`控件或`Image`控件来显示ICO图标，而实际的读取和写入操作可能涉及到`LoadPicture`、`SavePicture`等函数，以及可能的GDI+ API调用。 6. **自定义控件**：如果VB6的内置控件无法满足需求，开发者可能会创建自定义控件来更好地处理ICO文件，这涉及到用户控件（User Control）的创建和编程。 7. **编程技巧**：在处理ICO图标时，需要注意兼容性问题，因为不同系统和浏览器对ICO的支持程度可能不同。此外，优化内存管理和性能也是关键，尤其是在处理大量图标时。 8. **学习资源**：想要深入学习VB6和ICO图标制作，可以参考VB6的官方文档、编程书籍，以及在线论坛和教程，如MSDN（Microsoft Developer Network）和Stack Overflow。 通过以上内容，我们可以了解到，"制作ICO图标"这个主题不仅仅是关于图标设计，更涵盖了VB6编程技巧和图像处理技术，这对于Windows应用开发者来说是一段宝贵的学习经历。通过分析提供的源码，不仅可以理解ICO图标的内部结构，还能提升VB6的编程能力。

在VB6（Visual Basic 6）编程环境中，开发者通常依赖于内置的控件来构建用户界面。然而，这些内置控件的功能有限，特别是在涉及到特定视觉效果时，如颜色选择器。标题和描述提到的“非VB6自带的颜色选择器控件源码”正是为了满足这种需求，提供了一个自定义的颜色选择器组件，它可能具有比默认控件更丰富的功能和更好的用户体验。 颜色选择器控件是编程中常见的元素，尤其是在设计图形界面或涉及色彩应用的软件中。这种控件允许用户以可视化方式选取所需的颜色，通常包括色轮、调色板、RGB/HSV滑块等交互方式。非VB6自带的颜色选择器控件可能包含以下特性： 1. **多种颜色模式**：除了标准的RGB（红绿蓝）模式，可能还支持HSV（色调饱和度值）、HSL（色调饱和度亮度）、CMYK（青洋红黄黑）等颜色模型，使用户能够更精确地调整颜色。 2. **预设颜色**：提供常见颜色的预设选项，便于快速选择。 3. **自定义颜色**：用户可以通过输入十六进制颜色代码或使用滑块手动调整红绿蓝三原色的值来创建自定义颜色。 4. **实时预览**：在选取颜色的过程中实时显示颜色效果，帮助用户确认选择。 5. **历史记录**：保存最近使用的颜色，方便再次使用。 6. **拖放功能**：允许用户通过拖动将颜色值复制到其他地方。 7. **可配置界面**：可以自定义控件的外观，如大小、主题、布局等。 8. **事件处理**：可能包含多个事件，如颜色改变、颜色确认等，方便开发人员编写相应代码响应用户的操作。 9. **兼容性**：确保该控件能够在VB6环境下无缝集成，并且可能兼容其他版本的Visual Basic或.NET框架。 从提供的压缩包文件名称“codefans.net”来看，这可能是来源于CodeFans.net，一个知名的编程资源分享网站。在这个网站上，开发者经常分享他们的作品，包括自定义控件的源码。下载并研究这个控件的源码，开发者可以学习到如何在VB6中实现类似功能，或者直接将此控件整合到自己的项目中，提升应用程序的用户体验。 非VB6自带的颜色选择器控件源码为开发者提供了一种增强软件颜色选择功能的方式，它可能包含丰富的特性，便于用户在多种颜色模式下进行选择，同时提供了良好的可定制性和兼容性，是VB6开发中的一个实用工具。通过学习和使用这样的源码，开发者可以提升自己的编程技能，并优化其软件产品的设计和功能。

在当今的技术发展浪潮中，计算机程序的多样化和功能化日益明显，其中不少程序在设计之初就以教育和模拟为目的，以便用户更好地理解和掌握相关技术。在这样的背景下，“定向爆破程序（VB6.0源代码编写）”便是一个针对特定领域而设计的教学辅助软件。VB6.0，即Visual Basic 6.0，是微软公司开发的一个历史悠久的编程语言，虽然它已经不是最新的技术，但在特定的领域和教育场景中仍然具有其独特的价值。 此定向爆破程序的源代码，正如其描述所示，包含了倒计时、设定爆破时间以及显示剩余时间的功能。这些功能被精心设计来模拟一个真实世界中的爆破过程，但仅限于软件层面的模拟。用户可以通过控制面板进行设定，这意味着程序提供了良好的交互界面，允许用户自行决定何时开始模拟爆破以及设定具体的时间参数。这种设计对于那些想要学习VB6.0编程语言、熟悉事件驱动编程模式和时间管理机制的初学者来说，是非常有益的。 从技术角度上讲，一个倒计时功能的实现需要程序员具备对时间函数的深刻理解和有效运用。在VB6.0中，这通常涉及到使用定时器控件（Timer Control），以及对Date函数、Time函数等时间相关的编程接口的运用。定时器控件可以按照设定的周期性时间间隔触发事件，在事件处理程序中更新用户界面上的倒计时显示。 此外，创建一个控制面板需要程序员能够设计出一个直观且易于操作的用户界面。在VB6.0中，用户界面是由窗体（Form）和各种控件（如按钮、文本框、标签等）组合而成的。通过编程代码控制这些控件的行为和外观，程序员可以实现复杂的功能。例如，在我们的案例中，控制面板可能包含输入框供用户设定时间，按钮供用户开始和停止倒计时，以及标签来显示当前的倒计时状态。 在标签中提及的“乘余时间”和“距爆破时间”虽然意思相近，但在程序设计中，它们可能代表了不同方面的逻辑。乘余时间更多地反映程序运行时剩余的具体时间数值，而距爆破时间则可能关联到开始倒计时后所剩余的时间。这种细节的差异，在编程实现时需要小心区分，以确保用户界面的准确和用户操作的直观。 至于文件名称“VB090831-定向爆破”，其中的日期“2009年8月31日”可能提示了程序的开发或最后更新时间。这通常有助于维护者追踪软件版本和修复可能出现的问题。 不过，在探讨此类程序的同时，我们必须注意到，任何模拟危险行为的软件都必须小心谨慎地使用。尽管“定向爆破程序（VB6.0源代码编写）”的设计初衷是教育和演示，并非用于真正的爆破活动，但在传播和使用时，应确保其仅限于教育或技术研究的范畴，绝不可用于非法或危险的目的。开发者和用户都应负有相应的社会责任，确保技术在正面的、合法的轨道上得以发展和应用。 “定向爆破程序（VB6.0源代码编写）”是一个以教育和技术研究为目的的教学辅助软件。通过模拟特定爆破过程，它能帮助用户学习和掌握VB6.0编程语言的使用，了解程序设计的基本原理，同时提供一个界面友好、功能实用的平台。然而，此类软件的开发和使用都必须建立在法律和道德的基础之上，确保技术的健康发展。

摘要:VB源码,文件操作,文件查找　　一个基于VB6.0的文件查找程序源代码，若文件类型为 Exe,Ico,Cur,Ani，则获取每个文件的默认图标，其他类型的文件，只为每一种类型加载一个默认的图标，但最多允许加载150种图标，否则将耗用太多的系统资源。程序为Exe,Ico,Cur,Ani以外的每种文件类型添加默认的图标，其图标含有唯一的关键字，防止重复加载。

在VB6（Visual Basic 6）环境中，开发一个仿Windows屏幕键盘的应用程序是一个常见的需求，尤其是在需要用户在无物理键盘的环境下输入数据时。本文将深入解析如何利用VB6实现这一功能，包括基本的设计理念、控件使用以及源码解析。 我们需要了解VB6的基础知识。VB6是一款面向对象的编程环境，它使用事件驱动编程模型，通过拖放控件和编写代码来构建用户界面。在创建屏幕键盘时，我们将主要使用Form、Button控件和一些基本的API调用来模拟键盘的功能。 1. **设计屏幕键盘界面**： - 创建一个新的VB6项目，设置窗体的大小和背景色，使其看起来像一个键盘布局。 - 在窗体上添加多个Button控件，每个控件代表一个键盘按键。可以通过调整Button的大小、位置和文字来模拟按键的外观。 2. **响应按键点击**： - 为每个Button控件添加Click事件处理程序，当用户点击按钮时，对应的代码将被触发。例如，你可以使用`SendKeys`函数将按键的字符发送到当前激活的文本输入区域。例如： ```vb Private Sub Button1_Click() SendKeys "a", True ' 发送字符'a'到活动窗口 End Sub ``` 3. **特殊键处理**： - 对于Shift、Ctrl、Alt等修饰键，你需要跟踪它们的状态，并在按下或释放时改变按键的行为。可以使用全局变量来存储这些状态，并在其他按键的事件处理程序中检查它们。 - 例如，当你按下Shift键时，可以将所有字母键的行为更改为大写。对于数字键，可能需要处理NumLock的状态。 4. **功能键和特殊字符**： - 对于F1-F12等功能键，以及符号键（如@、#、$等），可以创建更大的Button控件，并在其上放置多个字符。在Click事件中，根据鼠标点击的位置决定发送哪个字符。 5. **API调用**： - VB6本身可能无法直接获取或更改系统键盘的状态（如NumLock、CapsLock）。这时，你需要使用API函数，如`GetKeyState`和`SetKeyboardState`来获取或修改键盘的状态。 6. **模拟按键按下和弹起**： - 如果需要模拟真实的按键效果，可以使用`SendInput` API，它可以更精确地控制按键的按下和弹起过程。 7. **优化用户体验**： - 可以添加自定义功能，比如复制、粘贴、撤销、重做等，通过增加额外的Button控件并编写相应的功能代码。 - 考虑到移动设备，可以添加触摸支持，使得屏幕键盘在触屏设备上也能正常使用。 通过以上步骤，你可以在VB6中创建一个基本的仿Windows屏幕键盘。在实际项目中，可能还需要进行更多的定制和优化，例如添加布局调整、热键绑定、自定义颜色方案等功能。提供的源码（未在文件名称列表中给出）通常会包含上述所有步骤的实现，供学习者参考和学习。

在VB6（Visual Basic 6）环境中，读取和修改MAC（Media Access Control）源码以及IP地址是一项常见的网络编程任务。MAC地址是设备在网络上的物理标识，而IP地址则是设备在网络上的逻辑地址。了解如何在VB6中操作这两者对于网络程序开发至关重要。 我们来探讨如何在VB6中读取MAC地址。在Windows操作系统中，可以使用Win32 API函数来获取MAC地址。例如，你可以使用`GetAdaptersInfo`函数，这是一个来自`Iphlpapi.dll`库的API调用，用于获取网络适配器的信息，其中包括MAC地址。要实现这一功能，你需要定义该函数的原型，并创建一个结构体来存储返回的适配器信息。然后，遍历返回的数据来查找MAC地址。 代码示例： ```vb Private Type IP_ADAPTER_INFO dwType As Long dwIndex As Long szDescription(255) As Byte szPhysicalAddress(6) As Byte PhysicalAddressLength As Long ulSpeed As Long dwPad1 As Long dwPad2 As Long szDNSSuffix(255) As Byte End Type Private Declare Function GetAdaptersInfo Lib "Iphlpapi" _ Alias "GetAdaptersInfo" (ByRef pAdapterInfo As IP_ADAPTER_INFO, ByRef pdwOutBufLen As Long) As Long ``` 接下来，使用`GetAdaptersInfo`获取信息并解析MAC地址： ```vb Dim pAdapter As IP_ADAPTER_INFO Dim dwRetVal As Long Dim strMAC As String dwRetVal = GetAdaptersInfo(pAdapter, LenB(pAdapter)) If dwRetVal = 0 Then strMAC = "" For i = 0 To pAdapter.PhysicalAddressLength - 1 strMAC = strMAC & Right("00" & Hex(pAdapter.szPhysicalAddress(i)), 2) If i < pAdapter.PhysicalAddressLength - 1 Then strMAC = strMAC & ":" End If Next i MsgBox "MAC Address: " & strMAC Else MsgBox "Error: " & dwRetVal End If ``` 至于修改MAC地址，这通常是不推荐或不允许的，因为这涉及到对操作系统底层的更改。在Windows中，通常只有系统管理员权限才能更改MAC地址，且通常需要通过命令行工具（如`netsh`）或专门的驱动程序来实现。在VB6中，你可以通过调用操作系统命令或者编写自定义驱动程序来实现，但这超出了VB6的基本功能范围，且需要深入的系统编程知识。 描述中还提到了修改IP地址。在VB6中，你可以使用`WMI`（Windows Management Instrumentation）来实现这一目标。WMI提供了一种标准的方式来访问和修改系统的各种设置，包括网络配置。以下是一个简单的例子，展示如何通过WMI修改IP地址： ```vb Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Dim strComputer As String strComputer = "." '本地计算机 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True") For Each objItem In colItems If Not IsNull(objItem.IPAddress) Then objItem.SetIPAddress Array("192.168.1.100") '替换为你要设置的IP objItem.EnableStatic(Array("192.168.1.100"), Array("255.255.255.0")) '设置静态IP和子网掩码 objItem.SetDefaultGateway Array("192.168.1.1") '设置默认网关 objItem.SetDNSServerSearchOrder Array("8.8.8.8", "8.8.4.4") '设置DNS服务器 objItem.Put_ End If Next objItem ``` 在这个例子中，我们首先获取了所有启用IP的网络适配器，然后设置了静态IP地址、子网掩码、默认网关和DNS服务器。注意，这需要相应的管理员权限。 在提供的压缩包中，有两个文件：`修改IP.frm`和`修改IP.vbp`。它们分别是VB6工程中的窗体（Form）和项目（Project）文件。`修改IP.frm`包含窗体的设计和控件属性，`修改IP.vbp`则包含了项目的整体信息，包括引用的库、窗体列表和模块等。这些文件通常与上述的VB6代码示例一起使用，实现了用户界面，允许用户交互式地读取和修改MAC地址及IP信息。 VB6虽然在现代编程环境中可能显得有些过时，但它依然在许多领域中被用于开发网络管理应用。通过调用API函数、WMI和理解操作系统底层工作原理，我们可以利用VB6完成复杂的网络任务，如读取和修改MAC地址以及IP地址。

VB调用显示Windows控制面板各个模块，也就是vb操作控制面板，把Windows控制面板中的内容全部显示在本程序的窗口中，像键盘设置、区域设置、网络、显示、多媒体等各个模块的显示。本例中主要是通过rundll32.exe shell32.dll来调用各个控制模块，将ICO图标编号，然后使用esle if结构逐一判断用户点击了哪个图标，图标对应于shell32.dll的调用，比如下面是其中一些模块的调用方法： 　　Private Sub Icon_Click(Index As Integer) 　　If Index = 0 Then 　　 Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1") 　　ElseIf Index = 1 Then 　　 Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1") 　　ElseIf Index = 2 Then 　　 Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl") 　　ElseIf