 True
            End If
         Next
         fRip.Icon = Me.Icon
         
         pnlMain.Enabled = False
         pnlCommands.Enabled = False
         
         fRip.Show , Me
         Me.Refresh
         DoEvents
         
         On Error Resume Next
         fRip.RipSelected
         
         Dim lErr As Long, sErr As String
         lErr = Err.Number
         sErr = Err.Description
         If Not (Err.Number = 0) Then
            Unload fRip
            On Error GoTo 0
            MsgBox "An er