Private Sub cmdCancel_Click()
  Unload Me
End Sub

'ОЧИСТКА
While fraWCO.Count >  1 

  For Each CTL In Controls
    If StrComp(TypeName$(CTL), "Menu") Then If CTL.Container Is fraWCO(fraWCO.Count -  1 ) Then Unload CTL
  Next

  Unload fraWCO(fraWCO.Count -  1 )
Wend

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private Sub Form_Activate()
ProcessMessages
End Sub

Private Sub ProcessMessages()
'Exit Sub

On Error Resume Next

Dim Message As MSG
Do While Not bCancel
    
    WaitMessage 'Wait For message and...
    If PeekMessage(Message, Me.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then '...when the mousewheel is used...
        If Message.wParam <  0  Then '...scroll up...
            vsbWave.VALUE = IIF_L(vsbWave.VALUE +  1  > vsbWave.Max, vsbWave.Max, vsbWave.VALUE +  1 )
        Else '... or scroll down
            vsbWave.VALUE = IIF_L(vsbWave.VALUE -  1  < vsbWave.Min, vsbWave.Min, vsbWave.VALUE -  1 )
        End If
    End If
    DoEvents
Loop
End Sub

Private Sub cmdCancel_Click()
  bCancel = True
  Unload Me
End Sub

Private Sub cmdCancel_Click()
  bCancel = True
  DoEvents
  Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  mblnFormActivated = False
  mblnFormPainted = False
  bCancel = True
  m_COPRID = False
  m_CODID =  0 
End Sub