Public Class TableServer
    Private ServerRow As Integer
    Private Invokecnt As Integer

    Sub New(addr As Integer)
        ServerRow = addr
        Invokecnt = 1
    End Sub

    Public Sub AddRow(addrow As Integer)
        ServerRow = ServerRow + 1
    End Sub
    Public Sub DelRow(addrow As Integer)
        If ServerRow > addrow Then
            ServerRow = ServerRow - 1
        End If
    End Sub

    Public Sub CallingBase()
        Invokecnt = Invokecnt + 1
    End Sub





End Class