最近想写一个VB程序，定时处理一些东西，在调试的时候发现有点问题，看看有谁做过相关的程序，提供一点经验，我的部分代码如下：
Sub TextInput_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

'初始化TextInput与WinFIOL间的DDE会话
Me.TextInput.LinkMode = vbLinkNone
Me.TextInput.LinkTopic = "WinFIOL|Main"
Me.TextInput.LinkMode = 2
Me.TextInput.LinkItem = "ActiveChannel"
Me.TextInput.LinkRequest
Me.TextInput.LinkMode = 0
Me.TextInput.LinkTopic = "WinFIOL|" & Me.TextInput.Text
'Me.TextInput1.LinkTopic = "WinFIOL|" & Me.TextInput.Text
'Me.TextInput2.LinkTopic = "WinFIOL|" & Me.TextInput.Text
Me.TextInput.LinkMode = 2'DDE手动模式
Me.TextInput.LinkItem = "Name"
Me.TextInput.Text = "PeterConv"
Me.TextInput.LinkPoke

'Me.TextInput1.LinkItem = "Event"
'Me.TextInput1.LinkMode = 1
'Me.TextInput2.LinkItem = "Output"
'Me.TextInput2.LinkMode = 1

szCommand = TextInput.Text
'执行错误，外部应用程序不能执行DDE方法或操作,vbLinkAutomatic
Me.TextInput.LinkExecute szCommand
Me.TextInput.LinkMode = vbLinkNone

'初始化TextOutput与WinFIOL间的DDE会话
Me.TextOutput.LinkMode = vbLinkNone
Me.TextOutput.LinkTopic = "WinFIOL|" & Me.TextInput.Text
Me.TextOutput.LinkItem = "output"
Me.TextOutput.LinkMode = vbLinkAutomatic'vbLinkManual
'返回执行结果并显示
Me.TextOutput.LinkRequest
Me.TextOutput.LinkMode = vbLinkNone

End If

End Sub