Attribute VB_Name = "LinkToSDDEModule"
' This is an example for a SDDE Client in Visual Basic 6.0

Sub LinkToSDDE()

Dim Linktopic1 As String
Dim LinkItem1 As String

' Select the Topic
Linktopic1 = "SDDE|COM1"

' Choose one of the Items
LinkItem1 = "DB10DW10"
LinkItem1 = "MW10"

'
Form1.Text1.Text = ""
Form1.Text1.LinkTopic = Linktopic1
Form1.Text1.LinkItem = LinkItem1

' Link mode automatic
Form1.Text1.LinkMode = 1

End Sub