- 1 - 移动无标题栏的窗体 dim m(borderstyle=none) ouseX as integer dim mouseY as integer dim moveX as integer dim moveY as integer dim down as boolean form_mousedown: 'mousedown 事件 down=true mouseX=x mouseY=y form_mouseup: 'mouseup 事件 down=false form_mousemove if down=true then moveX=me.left-mouseX+X moveY=me.top-mouseY+Y me.move moveX,moveY end if *******************************************闪烁控件 比如要闪烁一个 label（标签） 添加一个时钟控件 间隔请根据实际需要设置 enabled 属性设为 true 代码为：label1.visible=not label1.visible ******************************************* 禁止使用 Alt+F4 关闭窗口 Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Const MF_BYPOSITION = &H400& Private Sub Form_Load() Dim hwndMenu As Long Dim c As Long hwndMenu = GetSystemMenu(Me.hwnd, 0) c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPOSITION c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPOSITION End Sub 启动控制面板大全 '打开控制面板 Call Shell("rundll32.exe shell32.dll,Control_RunDLL", 9) '辅助选项 属性-键盘 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", 9) '辅助选项 属性-声音 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", 9) '辅助选项 属性-显示 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", 9) '辅助选项 属性-鼠标 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", 9) '辅助选项 属性-常规 Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", 9) '添加/删除程序 属性-安装/卸载 Call Shell("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1", 9) '添加/删除程序 属性-Windows 安装程序 Call Shell("rundll32.exe s...
VIP
