MQCNO VB problem

[kdmj]

Is anyone able to help with a VB coding problem we are having . We are writing
> a VB program to connect to an MQ client.
>
> An excerpt from the code follows:
>
>
> Dim aMQCNO As MQCNO 'connect options
> 'Dim aMQCNO As MQCD_DEFAULT 'connect options
> Dim aChannel As MQCD 'channel definition
>
> aChannel.ChannelName = "NMC.TRAINCALL.CLT"
> aChannel.ChannelType = MQCHT_CLNTCONN
> aChannel.ConnectionName = "171.30.136.104(1413)"
> aChannel.TransportType = MQXPT_TCP
> aChannel.MCAName = "Administrator"
>
> 'ClientConnPtr is declared as follows in a vb .bas file ..........:
>
> 'Type MQCNO
> ' StrucId As String * 4 'Structure identifier'
> ' Version As Long 'Structure version number'
> ' Options As Long 'Options that control the action of MQCONNX'
> ' ClientConnOffset As Long 'Offset of MQCD structure for client connection'
> ' ClientConnPtr As String * 4 'Address of MQCD structure for client connection'
> 'End Type
>
> 'Default Instance of MQCNO Structure'
> 'Global MQCNO_DEFAULT As MQCNO
>
> '.... to here
>
> 'Problem: Next line does not work, how do we get ptr to pt to out channel structure as set up.
> aMQCNO.ClientConnPtr = aChannel
>
Thanks
DJ