Dim hDrop(0 To 100) As Long
    Dim hCF(0 To 100) As Long
 
    Dim pDrop As Long
 
    hDrop(i) = GlobalAlloc(GMEM_GHND, GlobalSize(GetClipboardData(CStr( _
      lngFormat))))
    pDrop = GlobalLock(hDrop(i))
    Call CopyMemory(ByVal pDrop, ByVal GetClipboardData(CStr(lngFormat)), ByVal _
      GlobalSize(GetClipboardData(CStr(lngFormat))))
    Call GlobalUnlock(hDrop(i))
    hCF(i) = CStr(lngFormat)

    Dim i As Integer
 
    OpenClipboard (Me.hwnd)
 
    EmptyClipboard
 
    For i = 0 To 5
        If hDrop(i) <> 0 Then
            Debug.Print SetClipboardData(hCF(i), hDrop(i))
        End If
    Next
 
    CloseClipboard 'Crash

http://www.joe.cx.la | http://www.joe.ch.tt