Pues si... eso es lo k keria, muchas gracias, ahora una cosita mas, sino te importa explicarme lo k es
Gracias.
Saludos.
Quote
ReDim Preserve
UBound
Gracias.
Saludos.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuQuote
ReDim Preserve
UBound
Quote
Private Sub Command1_Click()
Dim o As Byte
Dim p As Byte
p = Text1.Text
Label2.Caption = ""
While p > 0
o = p - 1
Label2.Caption = Label2.Caption & (p * o)
Wend
End Sub