主题：[求助]一个字符串包含判断的问题

帮助文件中有个例子:

Dim Str1 As String = "I like foxtable"
If Str1.Contains("like") Then
    Output.Show("Me too")
End If

我把Contains("like") 改成Contains("Like") ,"L"大小写换了一下,结果就不能输出"Me too"了.如何能不区别大小写?

我设计了一个窗口,窗口中只有一个按钮和一个文本框,写了一段代码,希望能够把搜索到的字符串输出到窗口的TextBox1中,运行倒是成功了,可是输出的是找到的最后一个字符串,而我是希望能把找到的所有字符串全部输出到Textbox1中,并且用","隔开,不晓得怎样加代码.

希望高手指点,谢谢!

Dim s1 AS String=Currenttable.Current("兼容电池")    

s1=s1.ToLower()
Dim s2 As String=Currenttable.Current("查找型号")
s2=s2.ToLower()
Dim s3 AS String=Currenttable.Current("兼容电脑")
s3=s3.ToLower()
Dim s4 AS String=s1 & "," & s3
Dim values1() As String                 

values1=s4.split(",")                      
For Index As Integer = 0 To Values1.Length - 1
    If values1(Index).Contains(s2) Then
       e.Form.Controls("TextBox1").Value =values1(Index)
     End If
Next