Ayuda - bbcodes en Vb 6

[lotusnovas]

Hola, tengo un par de problemas con esto.

Quiero colocarle los bbcodes a una peque~a aplicacion para facilitar mas a la hora de hacer algun post en un foro, hasta ahora lo tengo asi :

Código vb:

1.
      Private Sub Command1_Click()
   2.
      Text1.Text = "[IMG]" & Text1.Text & "[/IMG ] "
   3.
       
   4.
      End Sub
   5.
       
   6.
      Private Sub Command2_Click()
   7.
      Text1.Text = "[CENTER]" & Text1.Text & "[/CENTER] "
   8.
       
   9.
      End Sub
  10.
       
  11.
      Private Sub Command3_Click()
  12.
      Text1.Text = "[QUOTE]" & Text1.Text & "[/QUOTE]"
  13.
       
  14.
      End Sub
  15.
       
  16.
      Private Sub Command4_Click()
  17.
      Text1.Text = "[B]" & Text1.Text & "[/B]"
  18.
      End Sub
  19.
       
  20.
      Private Sub Command5_Click()
  21.
      Text1.Text = "[I]" & Text1.Text & "[/I]"
  22.
      End Sub
  23.
       
  24.
      Private Sub Command6_Click()
  25.
      Text1.Text = "[U]" & Text1.Text & "[/U]"
  26.
      End Sub
  27.
       
  28.
      Private Sub Command7_Click()
  29.
      Text1.Text = "[LEFT]" & Text1.Text & "[LEFT]"
  30.
      End Sub
  31.
       
  32.
      Private Sub Command8_Click()
  33.
      Text1.Text = "[RIGHT]" & Text1.Text & "[RIGHT]"
  34.
      End Sub
  35.
       
  36.
      Private Sub Command9_Click()
  37.
      Text1.Text = "[noparse][url=LINK]" & Text1.Text & "[/url][/noparse]"
  38.
      End Sub
 

El problema es que a la hora de ejecutarlo para probarlo queda asi:



El error esta en que en todos los Botones van directo al textbox1 y ya de allí no se como ira exactamente esto, no se si poner un textbox a cada boton y al final pasar todo a un ultimo textbox.

Quiero hacer algo como esto...



solo que esta esta en vb Net

Tambien intente hacerlo con un RichTextBox pero es mas complicado para mi, alguien me puede ayudar con esto por favor.

Gracias de antemano.

[erbuson]

Hola, te he dejado en el otro foro una posible solución a tu pregunta, en este enlace.

Saludos

[lotusnovas]

Muchas gracias, me funciono perfecto