Emerson Exchange 365

Never mind, I finally figured out what I was doing wrong. I haven't seen anything quite like this asked or talked about so, for what it's worth here's what worked for me. And if anyone sees I'm doing something wrong, please let me know! Thanks guys.
=================================================================================================
Option Explicit

Private Sub BG_Color_OnTimeOut(ByVal lTimerId As Long)
On Error GoTo ErrorHandler

Dim objPicDoc As Object
Dim objPicPage As Object
Dim objPicWin As Object
Dim lColor As Long

lColor = 12365030

If StrComp(frsGetComputerName, "MyWorkStationName", vbTextCompare) = 0 Then
Set objPicDoc = Application.ActiveDocument
Set objPicPage = objPicDoc.Page
Set objPicWin = Application.ActiveWindow
If InStr(1, objPicWin.WindowName, frsPictureNickname(PRIMARY_SCREEN, MAIN_PICTURE), vbTextCompare) > 0 Then
If objPicPage.BackgroundColor <> lColor Then
objPicPage.BackgroundColor = lColor
End If
End If
End If
Exit Sub

ErrorHandler:
frsHandleError
End Sub
=================================================================================================