Mensajes

Podes hacer algo asi y poner el select case adentro del for

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()

    Dim lVal As Long
    Dim i As Long
   
    lVal = 10

    For i = Len(CStr(lVal)) - 1 To 0 Step -1
        Debug.Print Mid$(CStr(lVal), Len(CStr(lVal)) - i, 1)
    Next
End Sub

QueryPerformanceCounter

[salu10]

HAHHAHA totalmente off topic pero me causo gracia salu10

El problema del copymemory lo podes solucionar utilizando una coleccion en paralelo al array y guardando el indice del valor. De esa manera la que queda ordenada es la coleccion y esta apunta al indice en el array.

Public Function IsDriveReady(ByVal sDrive As String) As Boolean
    sDrive = Left(sDrive, 1) & ":\"
    IsDriveReady = GetVolumeInformation(sDrive, vbNullString, _
       0, 0, 0, 0, vbNullString, 0)
End Function

Same as any server editor.

ExtractAssociatedIcon
ExtractIcon
ExtractIconEx

Te voy a hacer el camino mas corto, se parecen en la sintaxis y un poco en el ide nada mas.

vbaccelerator.com

Esto es mas viejo que la injusticia, regiones o Layered Attributes con png o color clave.