Pues si... eso es lo k keria, muchas gracias, ahora una cosita mas, sino te importa explicarme lo k es
Gracias.
Saludos.
Citar
ReDim Preserve
UBound
Gracias.
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitar
ReDim Preserve
UBound
Citar
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