Do While dr.Read()


                'SE PER CASO VOGLIO DISABILITARE UNA FORM BASTA CHE CI TOLGO IL NOME
                If dr("FORM_NAME") <> "" Then
                    MainTab.TabPages.Add(dr("TAB_NAME_" & LINGUA_APPLICATIVO))
                    MainTab.TabPages(CInt(dr("TAB_INDEX"))).Height = 999
                    MainTab.TabPages(CInt(dr("TAB_INDEX"))).Width = 1666

                    frmX = CreateForm(dr("FORM_NAME"))

                    frmX.Name = dr("FORM_NAME")

                    frmX.TopLevel = False
                    frmX.Visible = True '<- quando eseguo questa istruzione va in errore perchè nell'evento LOAD ho altre query 
                    frmX.Top = 0
                    frmX.Left = 0

                    MainTab.TabPages(CInt(dr("TAB_INDEX"))).Controls.Add(frmX)
                    MainTab.TabPages(CInt(dr("TAB_INDEX"))).AutoScroll = True
                End If


            Loop

            dr.Close()