VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmGeneraleRicerca 
   Caption         =   "MyICR"
   ClientHeight    =   6015
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   16155
   OleObjectBlob   =   "frmGeneraleRicerca.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmGeneraleRicerca"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Dim oNewFoglio As New clsCostruttore
Option Explicit
Dim vEventoTriggerato As Boolean

Private Sub CheckBoxIniziaContiene_Click()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub

Private Sub ComboBoxCercaPer_Change()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub

Private Sub ComboBoxOnairImdb_Change()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub

Private Sub ComboBoxOrdinamento_Change()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub


Private Sub CommandButtonAggancia_Click()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    CommandButtonAggancia.Caption = "ATTIVATO"
    Call oNewFoglio.sFormEventi(Me)
    CommandButtonAggancia.Caption = "AGGANCIA"
    vEventoTriggerato = False
End If
End Sub

Private Sub TxtRicerca_Change()
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub

Private Sub UserForm_Activate()
Call oNewFoglio.sFormInizializza(Me)
If vEventoTriggerato = False Then
    vEventoTriggerato = True
    Call oNewFoglio.sFormEventi(Me)
    vEventoTriggerato = False
End If
End Sub