Public Sub Command1_Click () Dim FoundPOS as integerif FString = "" "" "the fstring = text1.text end if End1.text <>" "". FSTRING = Text1.Text end if End1.text1.text endiff txt1.text
If Option1.Value = True Ten endpos = form1.text1.selstart form1.text1.selstart = 0 Startpos = 0 do while foundpos <> -1 if check1.value = 1 dampos = form1.text1.find (FString, StartPOS, Endpos, 4) if FoundPOS <> -1 Then StartPos = Foundpos Len (fstring) else foundpos = form1.text1.Find (fstring, startpos, endpos) if Foundpos <> -1 Then StartPos = Foundpos Len (FString) end If Loop if startpos = 0 Then 'startpos = startpos - len (fstring)' else msgbox "Find Not" chr (34) fstring chr (34) end ifelse startpos = form1.text1.selstart Form1.text1.sellength Endpos = len (form1.text1) if check1.value = 1 dam1.find (FString, StartPos, Endpos, 4) Else Foundpos = form1.text1.Find (FString, StartPos, Endpos) End if fixpos <> -1 Then StartPos = FoundPOS 1 Else Msgbox "Find Not" CHR (34) FSTR ING CHR (34) End IFEND IF
End Sub
Private sub fascist2_click () form2.visible = falseeend Sub
Private Sub Form_Load () Command1.enabled = falsetchange = falseEndPos = lenb (form1.text1) End Sub
Private sub text1_change ()
If Text1.Text <> "" "" THEN COMMAND1.ENABLED = Trueelse Command1.enabled = false end f = truend submmand1.enable