esta un poco largo pero lo vere XD gracias
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úPrivate Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
End Sub
Private Sub cmdordenar_Click()
If optascendente Then
End If
End Sub
Private Sub cmdAceptar_Click()
If txtinsertar = 100 Then
txt100 = 1
End If
If txtinsertar = 200 Then
txt200 = 1
End If
If txtinsertar = 300 Then
txt100 = 1
txt200 = 1
End If
If txtinsertar = 400 Then
txt200 = 2
End If
If txtinsertar = 500 Then
txt500 = 1
End If
If txtinsertar = 600 Then
txt100 = 1
txt500 = 1
End If
If txtinsertar = 700 Then
txt200 = 1
txt500 = 1
End If
If txtinsertar = 800 Then
txt100 = 1
txt200 = 1
txt500 = 1
End If
If txtinsertar = 900 Then
txt200 = 2
txt500 = 1
End If
If txtinsertar = 1000 Then
txt1000 = 1
End If
End Sub