vspd6.9怎么设置与proteus通信

我用VB写了一个程序，作用是按相应的按钮可以拉高compim端口的DTR和RTS的电平。虚拟串口是VSPD6.9，写的程序接COM4，proteus的compim接COM3。如图。当按DTR控制时，对应于proteus中的compim不能得到高电平，反而DCD和DSR两个端口得高电平。同样，按RTS控制时，对应的proteus不是RTS得高电平，而是CTS被拉高。
请问应如何设置虚拟串口，使得proteus与写的上位机程序执行一致？




用VB2005写的程序,应该没有问题，如下：
'**************************************************************
    '『DTR控制』按钮 的Click事件
    '此事件将使得DTR线路状态发生改变
    '**************************************************************
    Private Sub btnDTR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDTR.Click
        RS232.DtrEnable = Not RS232.DtrEnable '变更状态
        If RS232.DtrEnable Then
            picDTR.Image = picON.Image '变更为白色图示
        Else
            picDTR.Image = picOFF.Image '变更为红色图示
        End If
    End Sub