[?] Selstart en las etiquetas

[.:BlackCoder:.]

Estaba haciendo un ejercicio en el que el usuario introduce 2 numeros que seran, el inicio y el final de un bucle... y al hacer click en un boton se realiza el bucle, y se muestra (con print) los numeros en ese intervalo... Pero el print los muestra en la esquina de la ventana y un debajo del otro... Yo quiero mostrarlos en una etiqueta (label) una al lado del otro, y si es posible separados por ', '... Pero no se como hacerlo... tengo mas o menos la idea de como hacerlo pero con un textbox, con la propiedad selstart... Pero no se ocmo hacerlo con una etiqueta... Aca esta el code para que no piensen que miento:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim A As Integer
    Dim B As Integer
    Dim i As Integer
    A = Text1
    B = Text2
    For i = A To B
    Print i
    Next
End Sub

De antemano gracias a quien me pueda ayudar...

Saludos...

[Shell Root]

Algo así...

Código (vb) [Seleccionar] Expandir

 Dim intContador As Integer
 Dim strCadena As String

 For intContador = 0 To 10
   strCacena = strCadena & 1 & ", "
 Next
 strCadena = strCadena & "."
 strCadena = Replace(strCadena, ", .", "")
 MsgBox strCadena

En tu code sería algo así:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim i As Integer
    Dim strCadena As String
    For i = Text1.Text To Text2.Text
      strCacena = strCadena & 1 & ", "
    Next
    strCadena = Replace(strCadena, ", .", "")
    MsgBox strCadena
End Sub

[.:BlackCoder:.]

Mmm ya veo que no hay ninguna funcion hay que hacerlo a la vieja escuela... Gracias, pero aunque me sirvio de mucho... no funciona con esta modificacion:

Código (vb) [Seleccionar] Expandir

  Dim intContador As Integer
  Dim strCadena As String

  For intContador = Text1 To Text2
    strCacena = strCadena & intContador & ", "
  Next
  strCadena = strCadena & "."
  strCadena = Replace(strCadena, ", .", "")
  Label1 = strCadena
Nada mas muestra un punto ('.') 0o? Por q sera?...

[Shell Root]

y de cuanto es el bucle?

[.:BlackCoder:.]

1 en text1 y 5 en text2...

[Shell Root]

OMG!

 Dim intContador As Integer
 Dim strCadena As String

 For intContador = Text1.Text To Text2.Text
   strCacena = strCadena & intContador & ", "
 Next
 strCadena = strCadena & "."
 strCadena = Replace(strCadena, ", .", "")
 Label1.Caption = strCadena

[.:BlackCoder:.]

  se me olvido el option explicit... Thanks