Obtain output from custom built Win32 service

Public Class cNetMon
    Dim strCondition As String
    Dim objFPC As FPCLib.FPC
    Dim objFPCArrays As FPCLib.FPCArrays
    Dim objFPCArray As FPCLib.FPCArray
    Dim objAPRules As FPCLib.FPCPolicyRules
 
    Dim strWebCommand As String
    Dim strWebCommandA As String
    Dim strWebConditionIII As String
    Dim strWebAllHands As String
 
    Dim bolWebCommand As Boolean
    Dim bolWebCommandA As Boolean
    Dim bolWebConditionIII As Boolean
    Dim bolWebAllHands As Boolean
 
    Protected Overrides Sub OnStart(ByVal args() As String)
        strWebCommand = "Web Command"
        strWebCommandA = "Web Command(A)"
        strWebConditionIII = "Web Condition III"
        strWebAllHands = "Web All Hands"
        objFPC = CreateObject("FPC.Root")
        objFPCArrays = objFPC.Arrays
        objFPCArray = objFPCArrays.Connect("myISAServer")
        objAPRules = objFPCArray.ArrayPolicy.PolicyRules
        cnmTimer.Start()
    End Sub
 
    Protected Overrides Sub OnStop()
        cnmTimer.Stop()
        objAPRules = Nothing
        objFPCArray = Nothing
        objFPCArrays = Nothing
        objFPC = Nothing
    End Sub
 
    Private Sub cnmTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnmTimer.Tick
        examinePolicy()
        strCondition = webCondition()
    End Sub
 
    Private Sub examinePolicy()
        Dim objRule As FPCLib.FPCPolicyRule
        For Each objRule In objAPRules
            If StrComp(objRule.Name, strWebCommand) = 0 Then
                bolWebCommand = objRule.Enabled
            ElseIf StrComp(objRule.Name, strWebCommandA) = 0 Then
                bolWebCommandA = objRule.Enabled
            ElseIf StrComp(objRule.Name, strWebConditionIII) = 0 Then
                bolWebConditionIII = objRule.Enabled
            ElseIf StrComp(objRule.Name, strWebAllHands) = 0 Then
                bolWebAllHands = objRule.Enabled
            End If
        Next
    End Sub
 
    Function webCondition() As String
        If bolWebAllHands Then
            webCondition = strWebAllHands
        ElseIf bolWebConditionIII Then
            webCondition = strWebConditionIII
        ElseIf bolWebCommand Or bolWebCommandA Then
            webCondition = strWebCommand
        Else
            webCondition = "Secured"
        End If
    End Function
End Class