Public Const MAX_USRID As Short = 40
 
    Public Structure CnctReqDataT                                       ' 
    ' Connection request data block
        <VBFixedArray(MAX_USRID - 1)> Dim userID() As Byte               '   
        ' char            userID[MAX_USRID];
        <VBFixedArray(MAX_PWDID - 1)> Dim password() As Byte             '   
        ' char            password[MAX_PWDID];
 
        Public Sub Initialize()
            ReDim userID(MAX_USRID - 1)
            ReDim password(MAX_PWDID - 1)
        End Sub
    End Structure