Dim f As String = "F"
        Dim smenu As String = "ToolStripMenuItem"
        Dim menu As String = ""
        Dim i As Integer
        Dim tmp As String = ""
        F1ToolStripMenuItem1.Text = CStr(" " & CType(Me.IdLavorazioneComboBox.DataSource, DataTable).Rows(0)(Me.IdLavorazioneComboBox.DisplayMember))
        For i = 1 To CType(Me.IdLavorazioneComboBox.DataSource, System.Data.DataTable).Rows.Count - 1
            tmp = tmp & CStr(CType(Me.IdLavorazioneComboBox.DataSource, DataTable).Rows(i)(Me.IdLavorazioneComboBox.DisplayMember))
            menu = f & i + 1 & smenu & ".text=" & Chr(147) & tmp & Chr(147)
            esecuzione(menu.ToString)
        Next