Menos mal que los pones raul, los escondes de tal manera que es casi imposible dar con ellos...

DoEvents!

La única solución que vi 100% efectiva, fue hacer un hook para detectar cuando se abría, entonces lo cerraba y ya está.
Lo del registro es verdad que da problemas.

DoEvents!

y con CreateRoundRectRgn() se podría hacer con bordes redondeados.

DoEvents!

¿Para qué tanta variable?

Dim i&
 
For i = 1 To ListView1.ListItems.Count
    ListView3.ListItems.Add(,,ListView1.ListItems(i)).SubItems(1) = (CInt(ListView2.ListItems(i).SubItems(1)) + CInt(ListView1.ListItems(i).SubItems(1)))
next i

¿Así funciona?

DoEvents!

Muy bueno, buen trabajo.
Resulta muy divertido empezar a sacar versiones de una misma cosa a ver quien lo hace mejor.
Veo que te basaste en la mía...

DoEvents!

Supongo que me has dejado la función como Variant y las variables como Variant.
Ya dije en el test que cambié un par de cosas en mi función.
¿Se puede saber que cambiaste en tu test?

DoEvents!

Gracias a ambos por los apoyos.

Por cierto @el-brujo, te envié un mensaje privado, es importante.

DoEvents!

... la P.A.U. (Prueba de Acceso Universitaria) o Selectividad o como la queráis llamar.
Quedan sólo dos días, abro este post para saber si alguien más se va a examinar en España y cómo lleva la materia.


DoEvents!

Sería genial que la técnica esa la emplearas también con vArray(), puesto que las estructuras pesan 8 Bytes.
Es cierto lo que dices, en el test no conté con eso...
Está bien como está.

Pd1:

Public Property Get maxval() As Long
'   //  Obtiene el limite superior de los numeros a generar de manera aleatoria sin repetir.
    minval = lcvalmax '// Sería maxval
End Property

Pd2: Estaría genial que pusieras más ejemplos usando todas las propiedades para que a la gente le quedara más claro.

Pd3:
Ook, comienza la cuanta atrás...

DoEvents!

Algo así, por ejemplo:

'...
 
Public Property Get GetNumRandom() As Long
'   //  Genera un numero aleatorio sin repetir de acuerdo a un rango de valores dados.
Dim lindex          As Long
Dim lu              As Long
Dim lret            As Long
    If (bChange = True) Then
        Call Fixnumbers(lcvalmin, lcvalmax)
        Call Reset
    End If
    If (GetMore = True) Then
        lindex = NumRandom(0, UBound(lvcsplit))
        lret = NumRandom(lvcsplit(lindex).lValIni, lvcsplit(lindex).lValEnd)
        SeparateRange lret, lindex, lvcsplit
        If (Itsarrayini(VarPtrA(lacexcep)) = True) Then
            lu = UBound(lacexcep) + 1
            If (lu Mod &H3FF) = 0 Then '# si la matriz tiene 1024 elementos (lo puedes hacer con And también)
                ReDim Preserve lacexcep(0 to (lu + &H400)) '# le añadimos 1024 más...
            End If
        Else
            lu = 0
            Redim lacexcep(0)
        End If
        lacexcep(lu) = lret
        GetNumRandom = lret
    End If
End Property
 
'...
 
Private Sub Class_Initialize()
'   //  Constructor de la clase, no tengo por que hacer lo siguiente pero como me estoy adaptando a un standart lo hare.
    ReDim lacexcep(&H3FF) '# iniciamos la matriz con 1024
    bChange = False
End Sub

---

En cuanto a lo de copiar la matriz...
Hice este test y... ¡sorpresa!
Gana RtlMoveMemory()

Option Explicit
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByVal Destination&, ByVal Source&, ByVal Length&)
 
Private Sub Form_Load()
Const Max& = 999990
Dim q&, a&(Max), b&(), t As New CTiming
    Me.AutoRedraw = True
 
    ReDim b&(Max)
 
    For q = 0 To Max
        a(q) = q
    Next q
 
    t.Reset
    RtlMoveMemory VarPtr(b(0)), VarPtr(a(0)), (Max + Max + Max + Max + 4) '// Procuro evitar multiplicaciones...
    Me.Print "RtlMoveMemory", t.sElapsed
 
    ReDim b&(Max)
 
    t.Reset
    b = a
    Me.Print "Igualación", , t.sElapsed
 
   '// Con Set me tiraba error... xP
End Sub

Resultado:


DoEvents!