Public Function ReadDMAInteger(ByVal Process As String, ByVal Address As _
  Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal _
  nsize As Integer = 4) As Integer
    Try
        Dim lvl As Integer = Address
        For i As Integer = 1 To Level
            lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
        Next
        Dim vBuffer As Integer
        vBuffer = ReadInteger(Process, lvl, nsize)
        Return vBuffer
    Catch ex As Exception
 
    End Try
End Function