主题：请教：想用CheckedComboBox1控件显示该文本框每一行

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim str As String
Dim i,j As Integer
For i = 0 To txt.Lines.Length - 1
    For j = 0 To i - 1
        If txt.Lines(i) = txt.Lines(j) Then
            Exit For
        End If
    Next
    If i = j Then
        str = str & txt.Lines(i) & "|"
    End If
Next
str = str.TrimEnd("|")
e.Form.Controls("CheckedComboBox1").ComboList = str

上面那答案，是抄袭别人的，感谢那个人，与大家分享。