dos dudas pabas

[kakinets]

hola a todos tengo 2 dudas

1- como inoro las mayusculas en este codigo

Código [Seleccionar] Expandir




Private Sub Command2_Click()
busca (Text1.SelStart + 1)
End Sub


Sub busca(Optional ByVal bs As Integer)
Dim a As Integer
Dim b As String
b = Text2.Text
  If Len(b) Then
     a = InStr(bs + 1, Text1.Text, b)
      If a > 0 Then
      Text1.SelStart = a - 1
      Text1.SelLength = Len(b)
      Text1.SetFocus

      Else
      MsgBox "No se puede encontrar: " & Chr$(13) & b, vbDefaultButton1, "Error en Busqueda"
      Text2.SetFocus

       End If
    End If
End Sub




2 - al MSHFlexGrid como ago para borar todo una ves que esta puesto o escrito ( No se si me esplico) y para no poder haserle 2 veces click una ves seleccionado un cuadrodo.
 

Saludos KakiNets

[Gangrel]

No te entiendo a que te refieres con tus preguntas, Explicate un poco mejor y explica que es lo que quieres lograr con la funcion.

[xadap]

-

[kakinets]

Con respecto a la pregunta 1 ese es el codigo para buscar palabras en un Text mi pregunta es cual es la Solusion para que si hay una palabra escrita: HoLa y yo ponga hola me la encuentre =. (Creo que fui muy claro)

En cuanto a la 2 duda no se como esplicarla. En ese contro lo utiloso para marcar con puntos cada ves que ago click en algun cuadrado de la tabla queda un O ahora mi pregunta es como borar toda la tabla ya que deberia quedar marcados los cuadrados. Tambien me gustaria saber como hacer para que no pueda marcar 2 veces el mismo cuadrado en la Tabla.Espero que mme entiendan. Sino pongo Imagenes