Помогите разобрать код - VB

VB4 , VB5 
Level: Advanced 

В Win32 API есть парочка функций, позволяющих форматировать и копировать дискеты из программы: 

   SHFormatDrive _ 
        Lib  ( hwnd  , _ 
         Drive  , _ 
         fmtID  , _ 
         options  )   
   GetDriveType _ 
        Lib  _ 
        Alias  _ 
        ( nDrive  )   

Добавьте две command buttons в форму, назовите их cmdDiskCopy и cmdFormatDrive, и засуньте в их события Click следующие фрагменты кода: 

  cmdDiskCopy_Click() 
        
         DriveLetter$, DriveNumber&, _ 
                DriveType& 
         RetVal&, RetFromMsg& 
        DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                ) 
        DriveType = GetDriveType_ 
                (DriveLetter) 
         DriveType =    
                etc 
                RetVal = Shell_ 
                        ( & _ 
                         _ 
                        &  & _ 
                        DriveNumber &  & _ 
                        DriveNumber, ) 
           
                RetFromMsg = MsgBox_ 
                        ( & _ 
                        , , _ 
                        ) 

  cmdFormatDrive_Click() 
         DriveLetter$, DriveNumber&, _ 
                DriveType& 
         RetVal&, RetFromMsg% 
                DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                ) 
        
        DriveType = GetDriveType_ 
                (DriveLetter) 
         DriveType =    _ 
                
                RetVal = SHFormatDrive(.hwnd, _ 
                        DriveNumber, &, &) 
         
                RetFromMsg = MsgBox_ 
                        ( & _ 
                         & _ 
                        , _ 
                        , ) 
                 RetFromMsg =   

                                (.hwnd, _ 

Добавьте контрол DriveListBox под именем Drive1: 

  Drive1_Change() 
         DriveLetter$, DriveNumber&, _ 
                DriveType& 
        DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                ) 
        DriveType = GetDriveType_ 
                (DriveLetter) 
         DriveType <>    _ 
                
                cmdDiskCopy.Enabled = False 
         
                cmdDiskCopy.Enabled = True 

Будьте осторожны: так недолго и винт запороть.