通过文本框模拟最简单的串口收发，以下为部分代码：

Private Sub Form_Load()
    Dim DCB0 As DCB    'DCB结构
    Com1_h = CreateFile("com1", (GENERIC_READ Or GENERIC_WRITE), 0, 0, OPEN_EXISTING, 0, 0)
    GetCommState Com1_h, DCB0   '读取串口Com1的参数
    DCB0.BaudRate = 4800
    DCB0.ByteSize = 8
    DCB0.Parity = 1
    SetCommState Com1_h, DCB0   '设置串口Com1的参数
End Sub

其中API函数的CreateFile中第4个参数（即SECURITY_ATTRIBUTES）错误提示：ByRef参数类型不符，怎么回事？

补充一下：是不是非要有硬件设备才能实现？