Screen graphics people love scrolling source code whenever somebody is working on a computer. This appears to be Module1.bas from https://kenai.com/projects/jkatalog but reordered:
Attribute VB_Name = "Module1" Option Explicit '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Copyright ©1996-2006 VBnet, Randy Birch, All Rights Reserved. ' Some pages may also contain other copyrights by the author. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Distribution: You can freely use this code in your own ' applications, but you may not reproduce ' or publish this code on any web site, ' online service, or distribute as source ' on any media without express permission. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Const IOCTL_STORAGE_EJECT_MEDIA As Long = &H2D4808 Public Const IOCTL_STORAGE_LOAD_MEDIA As Long = &H2D480C Public Const DRIVE_REMOVABLE As Long = 2 Public Const DRIVE_CDROM As Long = 5 Public Const INVALID_HANDLE_VALUE As Long = -1& Public Const GENERIC_READ As Long = &H80000000 Public Const FILE_SHARE_READ As Long = &H1 Public Const FILE_SHARE_WRITE As Long = &H2 Public Const FILE_ANY_ACCESS As Long = &H0 Public Const FILE_READ_ACCESS As Long = &H1 Public Const FILE_WRITE_ACCESS As Long = &H2 Public Const OPEN_EXISTING As Long = 3 Public Const IOCTL_STORAGE_MEDIA_REMOVAL As Long = &H2D4804 Public Type PREVENT_MEDIA_REMOVAL PreventMediaRemoval As Byte End Type