Muy buen programa sonic, la verdad es admirable la atencion que le das a los detalles, la interfaz esta impecable. Felicitaciones.
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úOption Explicit
Private Sub Form_Load()
Dim i As Long
Dim svData() As String
ReDim svData(25)
For i = 0 To UBound(svData)
svData(i) = i
Next
MixUp svData
For i = 0 To UBound(svData)
Debug.Print svData(i)
Next
End Sub
Private Sub MixUp(svData() As String)
Dim sTemp As String
Dim lIndex As Long
Dim lIndex1 As Long
Dim i As Long
Randomize Timer
For i = 0 To UBound(svData) * 5
lIndex = Rnd * UBound(svData)
lIndex1 = Rnd * UBound(svData)
sTemp = svData(lIndex): svData(lIndex) = svData(lIndex1): svData(lIndex1) = sTemp
Next
End Sub