[code12345]

I am getting the error 5B Object variable or With block variable not set.
Code is:
Private Sub tagGroupTrigger_Change(ByVal TagNames As IGOMStringList)
' This function is called once a second since we are monitoring the change event of tag "system\Second".
On Error GoTo errHandler
Dim Screen As Object
Set Screen = Application.ActiveDisplay
Select Case Screen

And according to screen name have some message to be displayed.Also have included error hadler in my original code.

[modi123_1]

Please do not create duplicate topics.. closing.