VB有趣的问题

你是要做一个类似 ClickMe！的整人的程序吗
先把Form1的BorderStyle改成0-None，再添加一个CommandButton，然后添加以下代码
Private Sub Command1_Click()
Unload Me'相当于End
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Top = Rnd(1) * (Screen.Height - Form1.Height)'Rnd()是随机数函数，减去Form1的高度防止跳出屏幕
Form1.Left = Rnd(1) * (Screen.Width - Form1.Width)'同上
End Sub

Private Sub Form_Load()
Command1.Left = 0
Command1.Top = 0
Form1.Width = Command1.Width
Form1.Height = Command1.Height
End Sub

不过这样就算按Alt+F4也关不掉，只有在按钮处于选中状态时按空格或回车才能关掉。

如果只是鼠标关不掉，而Alt+F4可以关的话，就把Form1的borderStyle改回2

编程 环境VB6.0
步骤:1.新建一个工程
2.在窗体上加一个Timer控件
3.打开代码窗口,复制下面的代码
接下来运行就可以了.
要源码留下信箱.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long