Function getDeviceInfo(ByVal handle As Short)

        Dim infoText(7) As String
        Dim infoStr As String







        infoStr = "                    "
                ps2000_get_unit_info(handle, infoStr, CShort(infoStr.Length), 4)

                Return infoStr


    End Function