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
 gracias por toda tu ayuda
 gracias por toda tu ayuda 
 y listo gracias
 y listo gracias 
 
  pero gracias
 pero gracias 
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
 bueno gracias de antemano.
 bueno gracias de antemano.