Steuerprogramm PMOSPIPE / Button1-Click()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dms As Integer
        Dim ret As Integer
        Dim readByte As Byte
        ret = pmospipe_wrapper.DMS.DMS_ConnectEx("\\.\pipe\PROMOS-DMS", dms)
        MessageBox.Show(ret)
        ret = pmospipe_wrapper.DMS.Write.DMS_WriteBITEx(dms, "System:togglebit", 1)
        MessageBox.Show(ret)
        ret = pmospipe_wrapper.DMS.Read.DMS_ReadBITEx(dms, "System:togglebit", readByte)
        ret = pmospipe_wrapper.DMS.DMS_CloseEx(dms)
        MessageBox.Show(readByte.ToString)
    End Sub