Código: Seleccionar todo

'Declare FindWindow
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
If FindWindow(vbNullString, "Windows Live Messenger'use windows name") Then
Label1.Caption = "MSN Open"
Else
Label1.Caption = "MSN Closed"
End If
End Sub