' '创建邮槽
'Local hSlot,fResult,cb,cm,ca As Dword,yc As SECURITY_ATTRIBUTES,cc As String,lpOverlapped As OVERLAPPED    '邮槽句柄
'    hSlot=CreateMailslot( _
'           "\\.\mailslot\win\yongfangmem", _ '邮槽名
'           0, _                              '不限制消息大小，》0 表示限制的字数
'           0, _                              '无超时
'           yc)                                '安全属性
'    If hSlot=0 Or hSlot=-1  Then 
'          ?  "创建邮槽失败" 
'    Else
'    aa->hSlot=CreateMailslot( "\\.\mailslot\win\yongfang0" & HWND_FORM5,0,0,Null)
