void rtf_Click(object s, EventArgs e)
创新互联公司是一家集网站建设,民和企业网站建设,民和品牌网站建设,网站定制,民和网站建设报价,网络营销,网络优化,民和网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
{
MessageBox.Show(rtf.SelectionStart.ToString());
}
对位模式执行数学左移位。
result = pattern amount
各部分说明
result
必选。整型数值。对该位模式进行移位的结果。数据类型与 pattern 的数据类型相同。
pattern
必选。整型数值表达式。要进行移位的位模式。数据类型必须为整型（SByte、Byte、Short、UShort、Integer、UInteger、Long 或 ULong）。
amount
必选。数值表达式。要将该位模式移位的位数。数据类型必须为 Integer 或扩展到 Integer。
备注
数学移位不是循环的，即不会将在结果的一端移出的数位从另一端重新移入。在数学左移位运算中，丢弃移出结果数据类型范围的数位，而将右端空出的数位位置设置为零。
为防止移位的结果超出它所支持的位数，Visual Basic 使用与 pattern 的数据类型相对应的大小掩码来屏蔽 amount 的值。可使用这些值的二进制与运算结果作为移位量。大小掩码如下所示：
pattern数据类型 掩码（十进制）掩码（十六进制）
SByte, Byte 7 H00000007
Short, UShort 15 H0000000F
Integer, UInteger 31 H0000001F
Long, ULong 63 H0000003F
如果 amount 为零，则 result 的值与 pattern 的值相同。如果 amount 为负值，则将把它作为无符号的值，并使用相应的大小掩码进行屏蔽。
数学移位绝不会产生溢出异常。
Dim str1 As String = "112113114111"
Dim str2 As String = "11"
Dim count As Integer = 0
For i As Integer = 0 To str1.Length - 1
Dim f As Integer = str1.IndexOf(str2, i)
If f -1 Then
MsgBox("str2出现在str1的" f "个字符位置")
i = f
count += 1
End If
Next
MsgBox("统计出str1中共有" count "个str2！")