Public Declare Function daveReadBits Lib "libnodave.dll" (ByVal dc As Integer, _
  ByVal area As Integer, ByVal areaNumber As Integer, ByVal start As Integer, _
  ByVal numBytes As Integer, ByRef buffer As Byte) As Integer
 
Private Sub btnM18_0Lesen_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles btnM18_0Lesen.Click
        Dim buf(0) As Byte
        If livebit = True Then
            'M18.0 = 18x8+0 = M144
            res = daveReadBits(dc, daveFlags, 0, 144, 1, buf(0))
            txtM18_0Lesen.Text = CStr(buf(0))
        End If
    End Sub