Hola Lambda haber si esto te ayuda...yo tengo un troyano que incorpora sistema de chat y cuando recibe un mensaje parpadea la ventana..

Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long

Private Sub Timer1_timer()
    Dim nReturnValue As Integer
    nReturnValue = FlashWindow(Form1.hWnd, True)
End Sub

Un saludo

gracias, es justo lo que necesitaba