' MACROKIL.FRM
Option Explicit
Declare Function SetWindowPos Lib "User" (ByVal p1%, ByVal p2%, ByVal p3%, ByVal p4%, ByVal p5%, ByVal p6%, ByVal p7%) As Integer
Const c0020 = 3 ' &H3%
Const c0022 =-1 ' &HFFFF%

Sub Command1_Click ()
MacroKil.Visible = False
End Sub

Sub Command2_Click ()
Dim l0030 As Variant
Dim l0034 As Variant
DoEvents
AppActivate "America  Online"
DoEvents
l0030 = Number.Text
For l0034 = 1 To l0030
SendKeys "@@@@@@@@ Kill those lame ass macros!!! @@@@@@@      @@@@@@@@@@ Macro Killer by KDC @@@@@@@@@~"
subC8 (1)
Next l0034
End Sub

Sub Form_Load ()
Dim l0038 As Integer
l0038% = SetWindowPos%(MacroKil.hWnd, c0022, 0, 0, 0, 0, c0020)
End Sub