omfg here you get add this to your module:
Public Function running(Warrock_fenster_4_ As String) As Boolean
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Warrock_fenster_4_)
If (hWnd = 0) Then
running = False
Else
running = True
End If
End Function
timer1: (interval 100)
if running("Warrock") then
label1.visible = true
else:
label2.visible = true
end if
end sub
>_>