vb恶搞小程序

Dim s As Integer
Private Sub Command1_Click()
If i > 10 Then '想让别人按多少次就写多少
Unload Me
End If
End Sub
Private Sub Form_Load()
s = 0
Timer1.Interval = 1
Me.Height = Screen.Height
Me.Width = Screen.Width
Me.Top = 0
Me.Left = 0
End Sub
Private Sub Timer1_Timer()
Command1.SetFocus
End Sub

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long '用来限定当前鼠标的活动范围

Private Sub Form_Load()
Dim rectRect As RECT
rectRect.Left = Me.Left / 15
rectRect.Top = (Me.Top + Me.Height - Me.ScaleHeight) / 15
rectRect.Right = (Me.Left + Me.Width) / 15
rectRect.Bottom = (Me.Top + Me.Height) / 15
ClipCursor rectRect
End Sub

Private Sub Command1_Click()
If 登陆成功 Then Unload Me
end sub

private sub Form_Unload()
ClipCursor 0
End Sub