ng
Dim bData() As Byte
Dim sFiles() As String
Dim iFileCount As Long
Dim i As Long, l As Long

    Screen.MousePointer = vbHourglass
    txtView.Text = ""
    If (lstFormats.ListCount &gt; 0) Then
      lID = lstFormats.ItemData(lstFormats.ListIndex)
      Select Case lID
      Case CF_BITMAP
          ' Here is the simple way!
          Set picView = Clipboard.GetData(CF_BITMAP)
          picView.ZOrder
          
          ' As an example, here is the hard way to do it
          ' - the clipboard contains