منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله
إخواني الاعزاء أبحث عن كود  فيما يخص موضع مؤشر الماوس فوجدت هاذا الكود بالصدفة في برمجة vb.net
فهل من الممكن تحويله إلى Vb6 
 Dim a As Integer = TextBox1.SelectionStart 'مكان المؤشر'
Dim b As String = TextBox1.Text.Substring(a) 'النص بعد المؤشر'
Dim c As String = TextBox1.Text.Substring(0, a) 'النص قبل المؤشر'

If b.Trim.StartsWith("بسم") Then
    TextBox1.SelectedText = " " & "نصا معينا" & " "
End If

If c.Trim.EndsWith("الرحيم") Then
    TextBox1.SelectedText = " " & "نصا آخر" & " "
End If

If Not (b.Trim.StartsWith("بسم") Or c.Trim.EndsWith("الرحيم")) Then
    TextBox1.SelectedText = " " & "نصا ثالثا" & " "
End If