Module MeterModule



    'Public Sub StatusOfMeter(ByVal MeterValue As Integer, ByRef Status As String)
    'D'im MeterStatusString As String
    'MeterStatusString = ""
    '   Select Case MeterValue
    '      Case METER_OK
    '         MeterStatusString = "OK"
    '    Case METER_MISSING
    '       MeterStatusString = "Missing"
    '  Case METER_DIED
    '     MeterStatusString = "Died"
    'Case METER_FAILED
    '   MeterStatusString = "Failed"
    'End Select
    'End Sub



End Module






