Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Quiz - Form1.vb

Form1.vb

 Caricato da:
Scarica il programma completo

  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.     Dim contalivello As Integer
  4.     Dim domandacasuale As Integer = Math.Round(Rnd() * 9)
  5.     Dim giusta As Boolean = False
  6.     Dim contalampeggia As Integer
  7.  
  8. #Region " Codice generato da Progettazione Windows Form "
  9.  
  10.     Public Sub New()
  11.         MyBase.New()
  12.  
  13.         'Chiamata richiesta da Progettazione Windows Form.
  14.         InitializeComponent()
  15.  
  16.         'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()
  17.  
  18.     End Sub
  19.  
  20.     'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
  21.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  22.         If disposing Then
  23.             If Not (components Is Nothing) Then
  24.                 components.Dispose()
  25.             End If
  26.         End If
  27.         MyBase.Dispose(disposing)
  28.     End Sub
  29.  
  30.     'Richiesto da Progettazione Windows Form
  31.     Private components As System.ComponentModel.IContainer
  32.  
  33.     'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
  34.     'Può essere modificata in Progettazione Windows Form.  
  35.     'Non modificarla nell'editor del codice.
  36.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  37.     Friend WithEvents domanda As System.Windows.Forms.Label
  38.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  39.     Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
  40.     Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
  41.     Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
  42.     Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
  43.     Friend WithEvents Button1 As System.Windows.Forms.Button
  44.     Friend WithEvents Button3 As System.Windows.Forms.Button
  45.     Friend WithEvents ora As System.Windows.Forms.Label
  46.     Friend WithEvents conta As System.Windows.Forms.Timer
  47.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  48.     Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
  49.     Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
  50.     Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
  51.     Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
  52.     Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
  53.     Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
  54.     Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
  55.     Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
  56.     Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox
  57.     Friend WithEvents CheckBox10 As System.Windows.Forms.CheckBox
  58.     Friend WithEvents CheckBox11 As System.Windows.Forms.CheckBox
  59.     Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox
  60.     Friend WithEvents CheckBox13 As System.Windows.Forms.CheckBox
  61.     Friend WithEvents CheckBox14 As System.Windows.Forms.CheckBox
  62.     Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox
  63.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  64.     Friend WithEvents livello As System.Windows.Forms.Label
  65.     Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
  66.     Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
  67.     Friend WithEvents esatta As System.Windows.Forms.Label
  68.     Friend WithEvents lampeggia As System.Windows.Forms.Timer
  69.     Friend WithEvents errata As System.Windows.Forms.Label
  70.     Friend WithEvents casuale As System.Windows.Forms.Timer
  71.     Friend WithEvents Button4 As System.Windows.Forms.Button
  72.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  73.         Me.components = New System.ComponentModel.Container
  74.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  75.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  76.         Me.domanda = New System.Windows.Forms.Label
  77.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  78.         Me.RadioButton4 = New System.Windows.Forms.RadioButton
  79.         Me.RadioButton3 = New System.Windows.Forms.RadioButton
  80.         Me.RadioButton2 = New System.Windows.Forms.RadioButton
  81.         Me.RadioButton1 = New System.Windows.Forms.RadioButton
  82.         Me.Button1 = New System.Windows.Forms.Button
  83.         Me.Button3 = New System.Windows.Forms.Button
  84.         Me.conta = New System.Windows.Forms.Timer(Me.components)
  85.         Me.ora = New System.Windows.Forms.Label
  86.         Me.Panel1 = New System.Windows.Forms.Panel
  87.         Me.CheckBox15 = New System.Windows.Forms.CheckBox
  88.         Me.CheckBox14 = New System.Windows.Forms.CheckBox
  89.         Me.CheckBox13 = New System.Windows.Forms.CheckBox
  90.         Me.CheckBox12 = New System.Windows.Forms.CheckBox
  91.         Me.CheckBox11 = New System.Windows.Forms.CheckBox
  92.         Me.CheckBox10 = New System.Windows.Forms.CheckBox
  93.         Me.CheckBox9 = New System.Windows.Forms.CheckBox
  94.         Me.CheckBox8 = New System.Windows.Forms.CheckBox
  95.         Me.CheckBox7 = New System.Windows.Forms.CheckBox
  96.         Me.CheckBox6 = New System.Windows.Forms.CheckBox
  97.         Me.CheckBox5 = New System.Windows.Forms.CheckBox
  98.         Me.CheckBox4 = New System.Windows.Forms.CheckBox
  99.         Me.CheckBox3 = New System.Windows.Forms.CheckBox
  100.         Me.CheckBox2 = New System.Windows.Forms.CheckBox
  101.         Me.CheckBox1 = New System.Windows.Forms.CheckBox
  102.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  103.         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
  104.         Me.LinkLabel2 = New System.Windows.Forms.LinkLabel
  105.         Me.esatta = New System.Windows.Forms.Label
  106.         Me.lampeggia = New System.Windows.Forms.Timer(Me.components)
  107.         Me.errata = New System.Windows.Forms.Label
  108.         Me.casuale = New System.Windows.Forms.Timer(Me.components)
  109.         Me.Button4 = New System.Windows.Forms.Button
  110.         Me.GroupBox1.SuspendLayout()
  111.         Me.GroupBox2.SuspendLayout()
  112.         Me.Panel1.SuspendLayout()
  113.         Me.GroupBox3.SuspendLayout()
  114.         Me.SuspendLayout()
  115.         '
  116.         'GroupBox1
  117.         '
  118.         Me.GroupBox1.Controls.Add(Me.domanda)
  119.         Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
  120.         Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
  121.         Me.GroupBox1.Name = "GroupBox1"
  122.         Me.GroupBox1.Size = New System.Drawing.Size(528, 88)
  123.         Me.GroupBox1.TabIndex = 0
  124.         Me.GroupBox1.TabStop = False
  125.         Me.GroupBox1.Text = "Domanda"
  126.         '
  127.         'domanda
  128.         '
  129.         Me.domanda.Location = New System.Drawing.Point(8, 16)
  130.         Me.domanda.Name = "domanda"
  131.         Me.domanda.Size = New System.Drawing.Size(512, 64)
  132.         Me.domanda.TabIndex = 0
  133.         '
  134.         'GroupBox2
  135.         '
  136.         Me.GroupBox2.Controls.Add(Me.RadioButton4)
  137.         Me.GroupBox2.Controls.Add(Me.RadioButton3)
  138.         Me.GroupBox2.Controls.Add(Me.RadioButton2)
  139.         Me.GroupBox2.Controls.Add(Me.RadioButton1)
  140.         Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
  141.         Me.GroupBox2.Location = New System.Drawing.Point(8, 96)
  142.         Me.GroupBox2.Name = "GroupBox2"
  143.         Me.GroupBox2.Size = New System.Drawing.Size(528, 88)
  144.         Me.GroupBox2.TabIndex = 2
  145.         Me.GroupBox2.TabStop = False
  146.         Me.GroupBox2.Text = "Risposte"
  147.         '
  148.         'RadioButton4
  149.         '
  150.         Me.RadioButton4.FlatStyle = System.Windows.Forms.FlatStyle.System
  151.         Me.RadioButton4.Location = New System.Drawing.Point(8, 64)
  152.         Me.RadioButton4.Name = "RadioButton4"
  153.         Me.RadioButton4.Size = New System.Drawing.Size(512, 16)
  154.         Me.RadioButton4.TabIndex = 3
  155.         '
  156.         'RadioButton3
  157.         '
  158.         Me.RadioButton3.FlatStyle = System.Windows.Forms.FlatStyle.System
  159.         Me.RadioButton3.Location = New System.Drawing.Point(8, 48)
  160.         Me.RadioButton3.Name = "RadioButton3"
  161.         Me.RadioButton3.Size = New System.Drawing.Size(512, 16)
  162.         Me.RadioButton3.TabIndex = 2
  163.         '
  164.         'RadioButton2
  165.         '
  166.         Me.RadioButton2.FlatStyle = System.Windows.Forms.FlatStyle.System
  167.         Me.RadioButton2.Location = New System.Drawing.Point(8, 32)
  168.         Me.RadioButton2.Name = "RadioButton2"
  169.         Me.RadioButton2.Size = New System.Drawing.Size(512, 16)
  170.         Me.RadioButton2.TabIndex = 1
  171.         '
  172.         'RadioButton1
  173.         '
  174.         Me.RadioButton1.FlatStyle = System.Windows.Forms.FlatStyle.System
  175.         Me.RadioButton1.Location = New System.Drawing.Point(8, 16)
  176.         Me.RadioButton1.Name = "RadioButton1"
  177.         Me.RadioButton1.Size = New System.Drawing.Size(512, 16)
  178.         Me.RadioButton1.TabIndex = 0
  179.         '
  180.         'Button1
  181.         '
  182.         Me.Button1.Enabled = False
  183.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
  184.         Me.Button1.Location = New System.Drawing.Point(8, 16)
  185.         Me.Button1.Name = "Button1"
  186.         Me.Button1.TabIndex = 3
  187.         Me.Button1.Text = "Accetta"
  188.         '
  189.         'Button3
  190.         '
  191.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.System
  192.         Me.Button3.Location = New System.Drawing.Point(88, 16)
  193.         Me.Button3.Name = "Button3"
  194.         Me.Button3.TabIndex = 5
  195.         Me.Button3.Text = "Chiudi"
  196.         '
  197.         'conta
  198.         '
  199.         Me.conta.Interval = 1000
  200.         '
  201.         'ora
  202.         '
  203.         Me.ora.Location = New System.Drawing.Point(504, 248)
  204.         Me.ora.Name = "ora"
  205.         Me.ora.Size = New System.Drawing.Size(24, 16)
  206.         Me.ora.TabIndex = 7
  207.         Me.ora.Text = "60"
  208.         Me.ora.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  209.         '
  210.         'Panel1
  211.         '
  212.         Me.Panel1.BackColor = System.Drawing.SystemColors.Control
  213.         Me.Panel1.Controls.Add(Me.CheckBox15)
  214.         Me.Panel1.Controls.Add(Me.CheckBox14)
  215.         Me.Panel1.Controls.Add(Me.CheckBox13)
  216.         Me.Panel1.Controls.Add(Me.CheckBox12)
  217.         Me.Panel1.Controls.Add(Me.CheckBox11)
  218.         Me.Panel1.Controls.Add(Me.CheckBox10)
  219.         Me.Panel1.Controls.Add(Me.CheckBox9)
  220.         Me.Panel1.Controls.Add(Me.CheckBox8)
  221.         Me.Panel1.Controls.Add(Me.CheckBox7)
  222.         Me.Panel1.Controls.Add(Me.CheckBox6)
  223.         Me.Panel1.Controls.Add(Me.CheckBox5)
  224.         Me.Panel1.Controls.Add(Me.CheckBox4)
  225.         Me.Panel1.Controls.Add(Me.CheckBox3)
  226.         Me.Panel1.Controls.Add(Me.CheckBox2)
  227.         Me.Panel1.Controls.Add(Me.CheckBox1)
  228.         Me.Panel1.Location = New System.Drawing.Point(544, 8)
  229.         Me.Panel1.Name = "Panel1"
  230.         Me.Panel1.Size = New System.Drawing.Size(48, 256)
  231.         Me.Panel1.TabIndex = 8
  232.         '
  233.         'CheckBox15
  234.         '
  235.         Me.CheckBox15.FlatStyle = System.Windows.Forms.FlatStyle.System
  236.         Me.CheckBox15.Location = New System.Drawing.Point(8, 8)
  237.         Me.CheckBox15.Name = "CheckBox15"
  238.         Me.CheckBox15.Size = New System.Drawing.Size(32, 16)
  239.         Me.CheckBox15.TabIndex = 14
  240.         Me.CheckBox15.Text = "15"
  241.         '
  242.         'CheckBox14
  243.         '
  244.         Me.CheckBox14.FlatStyle = System.Windows.Forms.FlatStyle.System
  245.         Me.CheckBox14.Location = New System.Drawing.Point(8, 24)
  246.         Me.CheckBox14.Name = "CheckBox14"
  247.         Me.CheckBox14.Size = New System.Drawing.Size(32, 16)
  248.         Me.CheckBox14.TabIndex = 13
  249.         Me.CheckBox14.Text = "14"
  250.         '
  251.         'CheckBox13
  252.         '
  253.         Me.CheckBox13.FlatStyle = System.Windows.Forms.FlatStyle.System
  254.         Me.CheckBox13.Location = New System.Drawing.Point(8, 40)
  255.         Me.CheckBox13.Name = "CheckBox13"
  256.         Me.CheckBox13.Size = New System.Drawing.Size(32, 16)
  257.         Me.CheckBox13.TabIndex = 12
  258.         Me.CheckBox13.Text = "13"
  259.         '
  260.         'CheckBox12
  261.         '
  262.         Me.CheckBox12.FlatStyle = System.Windows.Forms.FlatStyle.System
  263.         Me.CheckBox12.Location = New System.Drawing.Point(8, 56)
  264.         Me.CheckBox12.Name = "CheckBox12"
  265.         Me.CheckBox12.Size = New System.Drawing.Size(32, 16)
  266.         Me.CheckBox12.TabIndex = 11
  267.         Me.CheckBox12.Text = "12"
  268.         '
  269.         'CheckBox11
  270.         '
  271.         Me.CheckBox11.FlatStyle = System.Windows.Forms.FlatStyle.System
  272.         Me.CheckBox11.Location = New System.Drawing.Point(8, 72)
  273.         Me.CheckBox11.Name = "CheckBox11"
  274.         Me.CheckBox11.Size = New System.Drawing.Size(32, 16)
  275.         Me.CheckBox11.TabIndex = 10
  276.         Me.CheckBox11.Text = "11"
  277.         '
  278.         'CheckBox10
  279.         '
  280.         Me.CheckBox10.FlatStyle = System.Windows.Forms.FlatStyle.System
  281.         Me.CheckBox10.Location = New System.Drawing.Point(8, 88)
  282.         Me.CheckBox10.Name = "CheckBox10"
  283.         Me.CheckBox10.Size = New System.Drawing.Size(32, 16)
  284.         Me.CheckBox10.TabIndex = 9
  285.         Me.CheckBox10.Text = "10"
  286.         '
  287.         'CheckBox9
  288.         '
  289.         Me.CheckBox9.FlatStyle = System.Windows.Forms.FlatStyle.System
  290.         Me.CheckBox9.Location = New System.Drawing.Point(8, 104)
  291.         Me.CheckBox9.Name = "CheckBox9"
  292.         Me.CheckBox9.Size = New System.Drawing.Size(32, 16)
  293.         Me.CheckBox9.TabIndex = 8
  294.         Me.CheckBox9.Text = "9"
  295.         '
  296.         'CheckBox8
  297.         '
  298.         Me.CheckBox8.FlatStyle = System.Windows.Forms.FlatStyle.System
  299.         Me.CheckBox8.Location = New System.Drawing.Point(8, 120)
  300.         Me.CheckBox8.Name = "CheckBox8"
  301.         Me.CheckBox8.Size = New System.Drawing.Size(32, 16)
  302.         Me.CheckBox8.TabIndex = 7
  303.         Me.CheckBox8.Text = "8"
  304.         '
  305.         'CheckBox7
  306.         '
  307.         Me.CheckBox7.FlatStyle = System.Windows.Forms.FlatStyle.System
  308.         Me.CheckBox7.Location = New System.Drawing.Point(8, 136)
  309.         Me.CheckBox7.Name = "CheckBox7"
  310.         Me.CheckBox7.Size = New System.Drawing.Size(32, 16)
  311.         Me.CheckBox7.TabIndex = 6
  312.         Me.CheckBox7.Text = "7"
  313.         '
  314.         'CheckBox6
  315.         '
  316.         Me.CheckBox6.FlatStyle = System.Windows.Forms.FlatStyle.System
  317.         Me.CheckBox6.Location = New System.Drawing.Point(8, 152)
  318.         Me.CheckBox6.Name = "CheckBox6"
  319.         Me.CheckBox6.Size = New System.Drawing.Size(32, 16)
  320.         Me.CheckBox6.TabIndex = 5
  321.         Me.CheckBox6.Text = "6"
  322.         '
  323.         'CheckBox5
  324.         '
  325.         Me.CheckBox5.FlatStyle = System.Windows.Forms.FlatStyle.System
  326.         Me.CheckBox5.Location = New System.Drawing.Point(8, 168)
  327.         Me.CheckBox5.Name = "CheckBox5"
  328.         Me.CheckBox5.Size = New System.Drawing.Size(32, 16)
  329.         Me.CheckBox5.TabIndex = 4
  330.         Me.CheckBox5.Text = "5"
  331.         '
  332.         'CheckBox4
  333.         '
  334.         Me.CheckBox4.FlatStyle = System.Windows.Forms.FlatStyle.System
  335.         Me.CheckBox4.Location = New System.Drawing.Point(8, 184)
  336.         Me.CheckBox4.Name = "CheckBox4"
  337.         Me.CheckBox4.Size = New System.Drawing.Size(32, 16)
  338.         Me.CheckBox4.TabIndex = 3
  339.         Me.CheckBox4.Text = "4"
  340.         '
  341.         'CheckBox3
  342.         '
  343.         Me.CheckBox3.FlatStyle = System.Windows.Forms.FlatStyle.System
  344.         Me.CheckBox3.Location = New System.Drawing.Point(8, 200)
  345.         Me.CheckBox3.Name = "CheckBox3"
  346.         Me.CheckBox3.Size = New System.Drawing.Size(32, 16)
  347.         Me.CheckBox3.TabIndex = 2
  348.         Me.CheckBox3.Text = "3"
  349.         '
  350.         'CheckBox2
  351.         '
  352.         Me.CheckBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
  353.         Me.CheckBox2.Location = New System.Drawing.Point(8, 216)
  354.         Me.CheckBox2.Name = "CheckBox2"
  355.         Me.CheckBox2.Size = New System.Drawing.Size(32, 16)
  356.         Me.CheckBox2.TabIndex = 1
  357.         Me.CheckBox2.Text = "2"
  358.         '
  359.         'CheckBox1
  360.         '
  361.         Me.CheckBox1.Checked = True
  362.         Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
  363.         Me.CheckBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
  364.         Me.CheckBox1.Location = New System.Drawing.Point(8, 232)
  365.         Me.CheckBox1.Name = "CheckBox1"
  366.         Me.CheckBox1.Size = New System.Drawing.Size(32, 16)
  367.         Me.CheckBox1.TabIndex = 0
  368.         Me.CheckBox1.Text = "1"
  369.         '
  370.         'GroupBox3
  371.         '
  372.         Me.GroupBox3.Controls.Add(Me.Button1)
  373.         Me.GroupBox3.Controls.Add(Me.Button3)
  374.         Me.GroupBox3.FlatStyle = System.Windows.Forms.FlatStyle.System
  375.         Me.GroupBox3.Location = New System.Drawing.Point(8, 184)
  376.         Me.GroupBox3.Name = "GroupBox3"
  377.         Me.GroupBox3.Size = New System.Drawing.Size(176, 48)
  378.         Me.GroupBox3.TabIndex = 9
  379.         Me.GroupBox3.TabStop = False
  380.         Me.GroupBox3.Text = "Azioni"
  381.         '
  382.         'LinkLabel1
  383.         '
  384.         Me.LinkLabel1.Location = New System.Drawing.Point(8, 232)
  385.         Me.LinkLabel1.Name = "LinkLabel1"
  386.         Me.LinkLabel1.Size = New System.Drawing.Size(100, 16)
  387.         Me.LinkLabel1.TabIndex = 11
  388.         Me.LinkLabel1.TabStop = True
  389.         Me.LinkLabel1.Text = "www.oenrik.it"
  390.         '
  391.         'LinkLabel2
  392.         '
  393.         Me.LinkLabel2.Location = New System.Drawing.Point(8, 248)
  394.         Me.LinkLabel2.Name = "LinkLabel2"
  395.         Me.LinkLabel2.Size = New System.Drawing.Size(100, 16)
  396.         Me.LinkLabel2.TabIndex = 12
  397.         Me.LinkLabel2.TabStop = True
  398.         Me.LinkLabel2.Text = "www.pierotofy.it"
  399.         '
  400.         'esatta
  401.         '
  402.         Me.esatta.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  403.         Me.esatta.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  404.         Me.esatta.ImageAlign = System.Drawing.ContentAlignment.TopCenter
  405.         Me.esatta.Location = New System.Drawing.Point(192, 192)
  406.         Me.esatta.Name = "esatta"
  407.         Me.esatta.Size = New System.Drawing.Size(344, 32)
  408.         Me.esatta.TabIndex = 13
  409.         Me.esatta.Text = "RISPOSTA ESATTA!"
  410.         Me.esatta.TextAlign = System.Drawing.ContentAlignment.TopCenter
  411.         Me.esatta.Visible = False
  412.         '
  413.         'lampeggia
  414.         '
  415.         Me.lampeggia.Interval = 50
  416.         '
  417.         'errata
  418.         '
  419.         Me.errata.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  420.         Me.errata.ForeColor = System.Drawing.Color.Red
  421.         Me.errata.ImageAlign = System.Drawing.ContentAlignment.TopCenter
  422.         Me.errata.Location = New System.Drawing.Point(192, 192)
  423.         Me.errata.Name = "errata"
  424.         Me.errata.Size = New System.Drawing.Size(344, 32)
  425.         Me.errata.TabIndex = 14
  426.         Me.errata.Text = "RISPOSTA ERRATA!"
  427.         Me.errata.TextAlign = System.Drawing.ContentAlignment.TopCenter
  428.         Me.errata.Visible = False
  429.         '
  430.         'casuale
  431.         '
  432.         Me.casuale.Enabled = True
  433.         Me.casuale.Interval = 10
  434.         '
  435.         'Button4
  436.         '
  437.         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.System
  438.         Me.Button4.Location = New System.Drawing.Point(120, 240)
  439.         Me.Button4.Name = "Button4"
  440.         Me.Button4.Size = New System.Drawing.Size(360, 23)
  441.         Me.Button4.TabIndex = 15
  442.         Me.Button4.Text = "Quando Ti Senti pronto iniziamo a Giocare"
  443.         '
  444.         'Form1
  445.         '
  446.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  447.         Me.ClientSize = New System.Drawing.Size(598, 268)
  448.         Me.Controls.Add(Me.Button4)
  449.         Me.Controls.Add(Me.errata)
  450.         Me.Controls.Add(Me.esatta)
  451.         Me.Controls.Add(Me.LinkLabel2)
  452.         Me.Controls.Add(Me.LinkLabel1)
  453.         Me.Controls.Add(Me.GroupBox3)
  454.         Me.Controls.Add(Me.Panel1)
  455.         Me.Controls.Add(Me.ora)
  456.         Me.Controls.Add(Me.GroupBox2)
  457.         Me.Controls.Add(Me.GroupBox1)
  458.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  459.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  460.         Me.MaximizeBox = False
  461.         Me.Name = "Form1"
  462.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  463.         Me.GroupBox1.ResumeLayout(False)
  464.         Me.GroupBox2.ResumeLayout(False)
  465.         Me.Panel1.ResumeLayout(False)
  466.         Me.GroupBox3.ResumeLayout(False)
  467.         Me.ResumeLayout(False)
  468.  
  469.     End Sub
  470.  
  471. #End Region
  472.  
  473.     Sub controllaquindicesimolivello()
  474.         Select Case domanda.Text
  475.             Case "Come finì la guerra civile in Cina tra Mao-tse Tung e Chang-Kai Shek?"
  476.                 If RadioButton1.Checked = True Then
  477.                     lampeggia.Enabled = True
  478.                 Else
  479.                     giusta = False
  480.                     lampeggia.Enabled = True
  481.                 End If
  482.             Case "Il famoso capitano James T. Kirk della fortunata serie Star Trek è interpretato da:"
  483.                 If RadioButton2.Checked = True Then
  484.                     giusta = True
  485.                     lampeggia.Enabled = True
  486.                 Else
  487.                     giusta = False
  488.                     lampeggia.Enabled = True
  489.                 End If
  490.             Case "Ditemi il titolo del film in cui recitarono: H. Ford, M. Brando, R. Duvall"
  491.                 If RadioButton3.Checked = True Then
  492.                     giusta = True
  493.                     lampeggia.Enabled = True
  494.                 Else
  495.                     giusta = False
  496.                     lampeggia.Enabled = True
  497.                 End If
  498.             Case "Quale di questi non è un satellite di Urano:"
  499.                 If RadioButton4.Checked = True Then
  500.                     giusta = True
  501.                     lampeggia.Enabled = True
  502.                 Else
  503.                     giusta = False
  504.                     lampeggia.Enabled = True
  505.                 End If
  506.             Case "Quale film ha vinto il premio Oscar nel 1980?"
  507.                 If RadioButton1.Checked = True Then
  508.                     giusta = True
  509.                     lampeggia.Enabled = True
  510.                 Else
  511.                     giusta = False
  512.                     lampeggia.Enabled = True
  513.                 End If
  514.             Case "Che cosa inventò Enrico Forlanini nel 1887?"
  515.                 If RadioButton2.Checked = True Then
  516.                     giusta = True
  517.                     lampeggia.Enabled = True
  518.                 Else
  519.                     giusta = False
  520.                     lampeggia.Enabled = True
  521.                 End If
  522.             Case "Quale città cinese è conosciuta come la città della seta?"
  523.                 If RadioButton3.Checked = True Then
  524.                     giusta = True
  525.                     lampeggia.Enabled = True
  526.                 Else
  527.                     giusta = False
  528.                     lampeggia.Enabled = True
  529.                 End If
  530.             Case "Qual'è il capoluogo di provincia più alto d'Italia?"
  531.                 If RadioButton4.Checked = True Then
  532.                     giusta = True
  533.                     lampeggia.Enabled = True
  534.                 Else
  535.                     giusta = False
  536.                     lampeggia.Enabled = True
  537.                 End If
  538.             Case "Chi è la madre del noto attore Nicolas Cage?"
  539.                 If RadioButton1.Checked = True Then
  540.                     giusta = True
  541.                     lampeggia.Enabled = True
  542.                 Else
  543.                     giusta = False
  544.                     lampeggia.Enabled = True
  545.                 End If
  546.             Case "A che distanza si trova il pianeta Saturno dal sole?"
  547.                 If RadioButton2.Checked = True Then
  548.                     giusta = True
  549.                     lampeggia.Enabled = True
  550.                 Else
  551.                     giusta = False
  552.                     lampeggia.Enabled = True
  553.                 End If
  554.         End Select
  555.     End Sub
  556.  
  557.     Sub quindicesimolivello()
  558.         domandacasuale = Math.Round(Rnd() * 9)
  559.         lampeggia.Enabled = False
  560.         esatta.Visible = False
  561.         contalampeggia = 0
  562.         errata.Visible = False
  563.         If domandacasuale = 0 Then
  564.             domanda.Text = "Come finì la guerra civile in Cina tra Mao-tse Tung e Chang-Kai Shek?"
  565.             RadioButton1.Text = "vinse Mao-Tse Tung"
  566.             RadioButton2.Text = "vinse Chang-Kai Shek"
  567.             RadioButton3.Text = "ci fu un pareggio"
  568.             RadioButton4.Text = "non ci fu nessuna guerra"
  569.         End If
  570.         If domandacasuale = 1 Then
  571.             domanda.Text = "Il famoso capitano James T. Kirk della fortunata serie Star Trek è interpretato da:"
  572.             RadioButton1.Text = "Marlon Brando"
  573.             RadioButton2.Text = "William Shatner"
  574.             RadioButton3.Text = "Scott J. Pakula"
  575.             RadioButton4.Text = "Leonard Nimoy"
  576.         End If
  577.         If domandacasuale = 2 Then
  578.             domanda.Text = "Ditemi il titolo del film in cui recitarono: H. Ford, M. Brando, R. Duvall"
  579.             RadioButton1.Text = "The Rock"
  580.             RadioButton2.Text = "Bronx"
  581.             RadioButton3.Text = "Apocalypse Now"
  582.             RadioButton4.Text = "Fuga da Alcatraz"
  583.         End If
  584.         If domandacasuale = 3 Then
  585.             domanda.Text = "Quale di questi non è un satellite di Urano:"
  586.             RadioButton1.Text = "Cordelia"
  587.             RadioButton2.Text = "Miranda"
  588.             RadioButton3.Text = "Puck"
  589.             RadioButton4.Text = "Talassa"
  590.         End If
  591.         If domandacasuale = 4 Then
  592.             domanda.Text = "Quale film ha vinto il premio Oscar nel 1980?"
  593.             RadioButton1.Text = "Gente comune"
  594.             RadioButton2.Text = "Gandhi"
  595.             RadioButton3.Text = "Guerre Stellari"
  596.             RadioButton4.Text = "C'era una volta in America"
  597.         End If
  598.         If domandacasuale = 5 Then
  599.             domanda.Text = "Che cosa inventò Enrico Forlanini nel 1887?"
  600.             RadioButton1.Text = "L'idrovolante"
  601.             RadioButton2.Text = "L'elicottero"
  602.             RadioButton3.Text = "Il sommergibile"
  603.             RadioButton4.Text = "L'autorespiratore"
  604.         End If
  605.         If domandacasuale = 6 Then
  606.             domanda.Text = "Quale città cinese è conosciuta come la città della seta?"
  607.             RadioButton1.Text = "Pak Bing"
  608.             RadioButton2.Text = "Si Gong"
  609.             RadioButton3.Text = "Shoocow"
  610.             RadioButton4.Text = "Wee Wong"
  611.         End If
  612.         If domandacasuale = 7 Then
  613.             domanda.Text = "Qual'è il capoluogo di provincia più alto d'Italia?"
  614.             RadioButton1.Text = "Rovigo"
  615.             RadioButton2.Text = "Benevento"
  616.             RadioButton3.Text = "Cuneo"
  617.             RadioButton4.Text = "Enna"
  618.         End If
  619.         If domandacasuale = 8 Then
  620.             domanda.Text = "Chi è la madre del noto attore Nicolas Cage?"
  621.             RadioButton1.Text = "Talia Shire"
  622.             RadioButton2.Text = "Lauren Bacall"
  623.             RadioButton3.Text = "Doris Day"
  624.             RadioButton4.Text = "Diane Keaton"
  625.         End If
  626.         If domandacasuale = 9 Then
  627.             domanda.Text = "A che distanza si trova il pianeta Saturno dal sole?"
  628.             RadioButton1.Text = "1427000000 km"
  629.             RadioButton2.Text = "1426000000 km"
  630.             RadioButton3.Text = "1425000000 km"
  631.             RadioButton4.Text = "1424000000 km"
  632.         End If
  633.     End Sub
  634.  
  635.     Sub controllaquattordicesimolivello()
  636.         Select Case domanda.Text
  637.             Case "Quale tra queste non è una grandezza macroscopica dei gas?"
  638.                 If RadioButton1.Checked = True Then
  639.                     lampeggia.Enabled = True
  640.                 Else
  641.                     giusta = False
  642.                     lampeggia.Enabled = True
  643.                 End If
  644.             Case "Ha guadagnato milioni di dollari con la fortunata serie di videogiochi ''Quake'':"
  645.                 If RadioButton2.Checked = True Then
  646.                     giusta = True
  647.                     lampeggia.Enabled = True
  648.                 Else
  649.                     giusta = False
  650.                     lampeggia.Enabled = True
  651.                 End If
  652.             Case "Qual'è la pietra più dura dopo il diamante?"
  653.                 If RadioButton3.Checked = True Then
  654.                     giusta = True
  655.                     lampeggia.Enabled = True
  656.                 Else
  657.                     giusta = False
  658.                     lampeggia.Enabled = True
  659.                 End If
  660.             Case "Quant'è profonda la famosa Fossa delle Marianne?"
  661.                 If RadioButton4.Checked = True Then
  662.                     giusta = True
  663.                     lampeggia.Enabled = True
  664.                 Else
  665.                     giusta = False
  666.                     lampeggia.Enabled = True
  667.                 End If
  668.             Case "In che anno è stata inventata l' e-mail?"
  669.                 If RadioButton1.Checked = True Then
  670.                     giusta = True
  671.                     lampeggia.Enabled = True
  672.                 Else
  673.                     giusta = False
  674.                     lampeggia.Enabled = True
  675.                 End If
  676.             Case "Il più piccolo dei satelliti esterni di Giove si chiama:"
  677.                 If RadioButton2.Checked = True Then
  678.                     giusta = True
  679.                     lampeggia.Enabled = True
  680.                 Else
  681.                     giusta = False
  682.                     lampeggia.Enabled = True
  683.                 End If
  684.             Case "Come si chiama la piattaforma tripartita sulla quale poggiavano le colonne dei templi greci?"
  685.                 If RadioButton3.Checked = True Then
  686.                     giusta = True
  687.                     lampeggia.Enabled = True
  688.                 Else
  689.                     giusta = False
  690.                     lampeggia.Enabled = True
  691.                 End If
  692.             Case "Quale di questi attori NON ha recitato nel Film Sleepers ?"
  693.                 If RadioButton4.Checked = True Then
  694.                     giusta = True
  695.                     lampeggia.Enabled = True
  696.                 Else
  697.                     giusta = False
  698.                     lampeggia.Enabled = True
  699.                 End If
  700.             Case "Chi è stato capo-cannoniere nella stagione 85-86 del campionato di calcio?"
  701.                 If RadioButton1.Checked = True Then
  702.                     giusta = True
  703.                     lampeggia.Enabled = True
  704.                 Else
  705.                     giusta = False
  706.                     lampeggia.Enabled = True
  707.                 End If
  708.             Case "In che anno Elias Canetti vince il nobel per la letteratura?"
  709.                 If RadioButton2.Checked = True Then
  710.                     giusta = True
  711.                     lampeggia.Enabled = True
  712.                 Else
  713.                     giusta = False
  714.                     lampeggia.Enabled = True
  715.                 End If
  716.         End Select
  717.     End Sub
  718.  
  719.     Sub quattordicesimolivello()
  720.         domandacasuale = Math.Round(Rnd() * 9)
  721.         lampeggia.Enabled = False
  722.         esatta.Visible = False
  723.         contalampeggia = 0
  724.         errata.Visible = False
  725.         If domandacasuale = 0 Then
  726.             domanda.Text = "Quale tra queste non è una grandezza macroscopica dei gas?"
  727.             RadioButton1.Text = "Mole"
  728.             RadioButton2.Text = "Temperatura"
  729.             RadioButton3.Text = "Pressione"
  730.             RadioButton4.Text = "Volume"
  731.         End If
  732.         If domandacasuale = 1 Then
  733.             domanda.Text = "Ha guadagnato milioni di dollari con la fortunata serie di videogiochi ''Quake'':"
  734.             RadioButton1.Text = "Peter Molyneux"
  735.             RadioButton2.Text = "John Carmack"
  736.             RadioButton3.Text = "Geoff Crammond"
  737.             RadioButton4.Text = "Sid Meier"
  738.         End If
  739.         If domandacasuale = 2 Then
  740.             domanda.Text = "Qual'è la pietra più dura dopo il diamante?"
  741.             RadioButton1.Text = "Ametista"
  742.             RadioButton2.Text = "Opale"
  743.             RadioButton3.Text = "Corindone"
  744.             RadioButton4.Text = "Rubino"
  745.         End If
  746.         If domandacasuale = 3 Then
  747.             domanda.Text = "Quant'è profonda la famosa Fossa delle Marianne?"
  748.             RadioButton1.Text = "10.124 m"
  749.             RadioButton2.Text = "10.324 m"
  750.             RadioButton3.Text = "10.556 m"
  751.             RadioButton4.Text = "10.924 m"
  752.         End If
  753.         If domandacasuale = 4 Then
  754.             domanda.Text = "In che anno è stata inventata l' e-mail?"
  755.             RadioButton1.Text = "1972"
  756.             RadioButton2.Text = "1975"
  757.             RadioButton3.Text = "1978"
  758.             RadioButton4.Text = "1980"
  759.         End If
  760.         If domandacasuale = 5 Then
  761.             domanda.Text = "Il più piccolo dei satelliti esterni di Giove si chiama:"
  762.             RadioButton1.Text = "Pasifae"
  763.             RadioButton2.Text = "Leda"
  764.             RadioButton3.Text = "Io"
  765.             RadioButton4.Text = "Callisto"
  766.         End If
  767.         If domandacasuale = 6 Then
  768.             domanda.Text = "Come si chiama la piattaforma tripartita sulla quale poggiavano le colonne dei templi greci?"
  769.             RadioButton1.Text = "Stilobate"
  770.             RadioButton2.Text = "Architrave"
  771.             RadioButton3.Text = "Crepidoma"
  772.             RadioButton4.Text = "Agorà"
  773.         End If
  774.         If domandacasuale = 7 Then
  775.             domanda.Text = "Quale di questi attori NON ha recitato nel Film Sleepers ?"
  776.             RadioButton1.Text = "Dustin Hoffman"
  777.             RadioButton2.Text = "Brad Pitt"
  778.             RadioButton3.Text = "Robert De Niro"
  779.             RadioButton4.Text = "Tom Cruise"
  780.         End If
  781.         If domandacasuale = 8 Then
  782.             domanda.Text = "Chi è stato capo-cannoniere nella stagione 85-86 del campionato di calcio?"
  783.             RadioButton1.Text = "Pruzzo"
  784.             RadioButton2.Text = "Maradona"
  785.             RadioButton3.Text = "Rummenigge"
  786.             RadioButton4.Text = "Altobelli"
  787.         End If
  788.         If domandacasuale = 9 Then
  789.             domanda.Text = "In che anno Elias Canetti vince il nobel per la letteratura?"
  790.             RadioButton1.Text = "1980"
  791.             RadioButton2.Text = "1981"
  792.             RadioButton3.Text = "1982"
  793.             RadioButton4.Text = "1983"
  794.         End If
  795.     End Sub
  796.  
  797.     Sub tredicesimolivello()
  798.         domandacasuale = Math.Round(Rnd() * 9)
  799.         lampeggia.Enabled = False
  800.         esatta.Visible = False
  801.         contalampeggia = 0
  802.         errata.Visible = False
  803.         If domandacasuale = 0 Then
  804.             domanda.Text = "Qual'è l'unità di misura del campo magnetico?"
  805.             RadioButton1.Text = "Tesla"
  806.             RadioButton2.Text = "Volt"
  807.             RadioButton3.Text = "Weber"
  808.             RadioButton4.Text = "Ohm"
  809.         End If
  810.         If domandacasuale = 1 Then
  811.             domanda.Text = "Quale tra questi verbi è in forma passiva?"
  812.             RadioButton1.Text = "Sono andato"
  813.             RadioButton2.Text = "Sono premiato"
  814.             RadioButton3.Text = "Sono salito"
  815.             RadioButton4.Text = "Sono corso"
  816.         End If
  817.         If domandacasuale = 2 Then
  818.             domanda.Text = "Quanto misurava in altezza l'uomo più alto di tutti i tempi, morto negli anni 70?"
  819.             RadioButton1.Text = "267 cm"
  820.             RadioButton2.Text = "270 cm"
  821.             RadioButton3.Text = "272 cm"
  822.             RadioButton4.Text = "275 cm"
  823.         End If
  824.         If domandacasuale = 3 Then
  825.             domanda.Text = "In che anno, secondo la leggenda, avvenne la fondazione di Roma?"
  826.             RadioButton1.Text = "733 a.C"
  827.             RadioButton2.Text = "743 a.C"
  828.             RadioButton3.Text = "750 a.C"
  829.             RadioButton4.Text = "753 a.C"
  830.         End If
  831.         If domandacasuale = 4 Then
  832.             domanda.Text = "A quanto corrisponde un anno-luce?"
  833.             RadioButton1.Text = "9500 miliardi di km"
  834.             RadioButton2.Text = "5000 miliardi di km"
  835.             RadioButton3.Text = "1200 miliardi di km"
  836.             RadioButton4.Text = "50 miliardi di km"
  837.         End If
  838.         If domandacasuale = 5 Then
  839.             domanda.Text = "Chi è l'artefice dello stupendo colonnato di San Pietro a Roma ?"
  840.             RadioButton1.Text = "Borromini"
  841.             RadioButton2.Text = "Bernini"
  842.             RadioButton3.Text = "Modigliani"
  843.             RadioButton4.Text = "Michelangelo"
  844.         End If
  845.         If domandacasuale = 6 Then
  846.             domanda.Text = "Quale di queste case automobilistiche è Polacca ?"
  847.             RadioButton1.Text = "Kia"
  848.             RadioButton2.Text = "Volkswagen"
  849.             RadioButton3.Text = "Skoda"
  850.             RadioButton4.Text = "Volvo"
  851.         End If
  852.         If domandacasuale = 7 Then
  853.             domanda.Text = "Quale di questi Moschettieri era il più ''grasso'' ?"
  854.             RadioButton1.Text = "Aramis"
  855.             RadioButton2.Text = "Atos"
  856.             RadioButton3.Text = "Dartagnan"
  857.             RadioButton4.Text = "Portos"
  858.         End If
  859.         If domandacasuale = 8 Then
  860.             domanda.Text = "La Via Flaminia, antica strada romana,lunga 223 miglia congiungeva Roma con?"
  861.             RadioButton1.Text = "Rimini"
  862.             RadioButton2.Text = "Bari"
  863.             RadioButton3.Text = "Bologna"
  864.             RadioButton4.Text = "Firenze"
  865.         End If
  866.         If domandacasuale = 9 Then
  867.             domanda.Text = "Qual è la capitale delle Filippine?"
  868.             RadioButton1.Text = "Mindanao"
  869.             RadioButton2.Text = "Quezon"
  870.             RadioButton3.Text = "Luzon"
  871.             RadioButton4.Text = "Manila"
  872.         End If
  873.     End Sub
  874.  
  875.     Sub controllatredicesimolivello()
  876.         Select Case domanda.Text
  877.             Case "Qual'è l'unità di misura del campo magnetico?"
  878.                 If RadioButton1.Checked = True Then
  879.                     lampeggia.Enabled = True
  880.                 Else
  881.                     giusta = False
  882.                     lampeggia.Enabled = True
  883.                 End If
  884.             Case "Quale tra questi verbi è in forma passiva?"
  885.                 If RadioButton2.Checked = True Then
  886.                     giusta = True
  887.                     lampeggia.Enabled = True
  888.                 Else
  889.                     giusta = False
  890.                     lampeggia.Enabled = True
  891.                 End If
  892.             Case "Quanto misurava in altezza l'uomo più alto di tutti i tempi, morto negli anni 70?"
  893.                 If RadioButton3.Checked = True Then
  894.                     giusta = True
  895.                     lampeggia.Enabled = True
  896.                 Else
  897.                     giusta = False
  898.                     lampeggia.Enabled = True
  899.                 End If
  900.             Case "In che anno, secondo la leggenda, avvenne la fondazione di Roma?"
  901.                 If RadioButton4.Checked = True Then
  902.                     giusta = True
  903.                     lampeggia.Enabled = True
  904.                 Else
  905.                     giusta = False
  906.                     lampeggia.Enabled = True
  907.                 End If
  908.             Case "A quanto corrisponde un anno-luce?"
  909.                 If RadioButton1.Checked = True Then
  910.                     giusta = True
  911.                     lampeggia.Enabled = True
  912.                 Else
  913.                     giusta = False
  914.                     lampeggia.Enabled = True
  915.                 End If
  916.             Case "Chi è l'artefice dello stupendo colonnato di San Pietro a Roma ?"
  917.                 If RadioButton2.Checked = True Then
  918.                     giusta = True
  919.                     lampeggia.Enabled = True
  920.                 Else
  921.                     giusta = False
  922.                     lampeggia.Enabled = True
  923.                 End If
  924.             Case "Quale di queste case automobilistiche è Polacca ?"
  925.                 If RadioButton3.Checked = True Then
  926.                     giusta = True
  927.                     lampeggia.Enabled = True
  928.                 Else
  929.                     giusta = False
  930.                     lampeggia.Enabled = True
  931.                 End If
  932.             Case "Quale di questi Moschettieri era il più ''grasso'' ?"
  933.                 If RadioButton4.Checked = True Then
  934.                     giusta = True
  935.                     lampeggia.Enabled = True
  936.                 Else
  937.                     giusta = False
  938.                     lampeggia.Enabled = True
  939.                 End If
  940.             Case "La Via Flaminia, antica strada romana,lunga 223 miglia congiungeva Roma con?"
  941.                 If RadioButton1.Checked = True Then
  942.                     giusta = True
  943.                     lampeggia.Enabled = True
  944.                 Else
  945.                     giusta = False
  946.                     lampeggia.Enabled = True
  947.                 End If
  948.             Case "Qual è la capitale delle Filippine?"
  949.                 If RadioButton2.Checked = True Then
  950.                     giusta = True
  951.                     lampeggia.Enabled = True
  952.                 Else
  953.                     giusta = False
  954.                     lampeggia.Enabled = True
  955.                 End If
  956.         End Select
  957.     End Sub
  958.  
  959.     Sub controlladodicesimolivello()
  960.         Select Case domanda.Text
  961.             Case "Quanti abitanti ci sono in Australia?"
  962.                 If RadioButton1.Checked = True Then
  963.                     lampeggia.Enabled = True
  964.                 Else
  965.                     giusta = False
  966.                     lampeggia.Enabled = True
  967.                 End If
  968.             Case "Secondo l'etimologia della parola,quale malattia curerebbe la ''pietra di giada''?"
  969.                 If RadioButton2.Checked = True Then
  970.                     giusta = True
  971.                     lampeggia.Enabled = True
  972.                 Else
  973.                     giusta = False
  974.                     lampeggia.Enabled = True
  975.                 End If
  976.             Case "Con quale sigla è meglio conosciuto il sistema di controllo della trazione nelle automobili?"
  977.                 If RadioButton3.Checked = True Then
  978.                     giusta = True
  979.                     lampeggia.Enabled = True
  980.                 Else
  981.                     giusta = False
  982.                     lampeggia.Enabled = True
  983.                 End If
  984.             Case "Chi era raffigurato sulla banconota da £ 500.000?"
  985.                 If RadioButton4.Checked = True Then
  986.                     giusta = True
  987.                     lampeggia.Enabled = True
  988.                 Else
  989.                     giusta = False
  990.                     lampeggia.Enabled = True
  991.                 End If
  992.             Case "Quale fu il primo singolo dei Beatles?"
  993.                 If RadioButton1.Checked = True Then
  994.                     giusta = True
  995.                     lampeggia.Enabled = True
  996.                 Else
  997.                     giusta = False
  998.                     lampeggia.Enabled = True
  999.                 End If
  1000.             Case "Qual è il comune italiano con la maggiore densità di popolazione?"
  1001.                 If RadioButton2.Checked = True Then
  1002.                     giusta = True
  1003.                     lampeggia.Enabled = True
  1004.                 Else
  1005.                     giusta = False
  1006.                     lampeggia.Enabled = True
  1007.                 End If
  1008.             Case "Ugo Foscolo nacque a Zante ma dove morì?"
  1009.                 If RadioButton3.Checked = True Then
  1010.                     giusta = True
  1011.                     lampeggia.Enabled = True
  1012.                 Else
  1013.                     giusta = False
  1014.                     lampeggia.Enabled = True
  1015.                 End If
  1016.             Case "Se tre ora fa ho visto giorgio che era fuori da due ore e che mezz'ora prima di uscire di casa, guardando l'orologio, aveva visto che erano le 15.30, che ora è adesso?"
  1017.                 If RadioButton4.Checked = True Then
  1018.                     giusta = True
  1019.                     lampeggia.Enabled = True
  1020.                 Else
  1021.                     giusta = False
  1022.                     lampeggia.Enabled = True
  1023.                 End If
  1024.             Case "Con quale di questi stati non confina il Montana?"
  1025.                 If RadioButton1.Checked = True Then
  1026.                     giusta = True
  1027.                     lampeggia.Enabled = True
  1028.                 Else
  1029.                     giusta = False
  1030.                     lampeggia.Enabled = True
  1031.                 End If
  1032.             Case "Quale re inglese è passato alla storia per il famoso scisma religioso dalla chiesa di Roma?"
  1033.                 If RadioButton3.Checked = True Then
  1034.                     giusta = True
  1035.                     lampeggia.Enabled = True
  1036.                 Else
  1037.                     giusta = False
  1038.                     lampeggia.Enabled = True
  1039.                 End If
  1040.         End Select
  1041.     End Sub
  1042.  
  1043.     Sub dodicesimolivello()
  1044.         domandacasuale = Math.Round(Rnd() * 9)
  1045.         lampeggia.Enabled = False
  1046.         esatta.Visible = False
  1047.         contalampeggia = 0
  1048.         errata.Visible = False
  1049.         If domandacasuale = 0 Then
  1050.             domanda.Text = "Quanti abitanti ci sono in Australia?"
  1051.             RadioButton1.Text = "circa 17.576.000"
  1052.             RadioButton2.Text = "circa 170.000.000"
  1053.             RadioButton3.Text = "circa 52.789.000"
  1054.             RadioButton4.Text = "circa 87.006.000"
  1055.         End If
  1056.         If domandacasuale = 1 Then
  1057.             domanda.Text = "Secondo l'etimologia della parola,quale malattia curerebbe la ''pietra di giada''?"
  1058.             RadioButton1.Text = "reumatismi"
  1059.             RadioButton2.Text = "mal di reni"
  1060.             RadioButton3.Text = "impotenza"
  1061.             RadioButton4.Text = "affezione cardiaca"
  1062.         End If
  1063.         If domandacasuale = 2 Then
  1064.             domanda.Text = "Quale re inglese è passato alla storia per il famoso scisma religioso dalla chiesa di Roma?"
  1065.             RadioButton1.Text = "Enrico Ottavo"
  1066.             RadioButton2.Text = "Luigi Quattordicesimo"
  1067.             RadioButton3.Text = "Enrico Quarto"
  1068.             RadioButton4.Text = "Filippo Secondo"
  1069.         End If
  1070.         If domandacasuale = 3 Then
  1071.             domanda.Text = "Con quale sigla è meglio conosciuto il sistema di controllo della trazione nelle automobili?"
  1072.             RadioButton1.Text = "Abs"
  1073.             RadioButton2.Text = "Str"
  1074.             RadioButton3.Text = "Tcs"
  1075.             RadioButton4.Text = "Ebd"
  1076.         End If
  1077.         If domandacasuale = 4 Then
  1078.             domanda.Text = "Chi era raffigurato sulla banconota da £ 500.000?"
  1079.             RadioButton1.Text = "Michelangelo"
  1080.             RadioButton2.Text = "Donatello"
  1081.             RadioButton3.Text = "Caravaggio"
  1082.             RadioButton4.Text = "Raffaello"
  1083.         End If
  1084.         If domandacasuale = 5 Then
  1085.             domanda.Text = "Quale fu il primo singolo dei Beatles?"
  1086.             RadioButton1.Text = "''Love Me Do''"
  1087.             RadioButton2.Text = "''Help''"
  1088.             RadioButton3.Text = "''Hey Jude''"
  1089.             RadioButton4.Text = "''Please Please Me''"
  1090.         End If
  1091.         If domandacasuale = 6 Then
  1092.             domanda.Text = "Qual è il comune italiano con la maggiore densità di popolazione?"
  1093.             RadioButton1.Text = "Roma"
  1094.             RadioButton2.Text = "Portici (Napoli)"
  1095.             RadioButton3.Text = "Rivoli (Torino)"
  1096.             RadioButton4.Text = "Sesto S.Giovanni (Milano)"
  1097.         End If
  1098.         If domandacasuale = 7 Then
  1099.             domanda.Text = "Ugo Foscolo nacque a Zante ma dove morì?"
  1100.             RadioButton1.Text = "Venezia"
  1101.             RadioButton2.Text = "Milano"
  1102.             RadioButton3.Text = "Londra"
  1103.             RadioButton4.Text = "Parigi"
  1104.         End If
  1105.         If domandacasuale = 8 Then
  1106.             domanda.Text = "Se tre ora fa ho visto giorgio che era fuori da due ore e che mezz'ora prima di uscire di casa, guardando l'orologio, aveva visto che erano le 15.30, che ora è adesso?"
  1107.             RadioButton1.Text = "19.30"
  1108.             RadioButton2.Text = "20"
  1109.             RadioButton3.Text = "20.30"
  1110.             RadioButton4.Text = "21"
  1111.         End If
  1112.         If domandacasuale = 9 Then
  1113.             domanda.Text = "Con quale di questi stati non confina il Montana?"
  1114.             RadioButton1.Text = "Minnesota"
  1115.             RadioButton2.Text = "Rembrandts"
  1116.             RadioButton3.Text = "Starsailor"
  1117.             RadioButton4.Text = "Ash"
  1118.         End If
  1119.     End Sub
  1120.  
  1121.     Sub undicesimolivello()
  1122.         domandacasuale = Math.Round(Rnd() * 9)
  1123.         lampeggia.Enabled = False
  1124.         esatta.Visible = False
  1125.         contalampeggia = 0
  1126.         errata.Visible = False
  1127.         If domandacasuale = 0 Then
  1128.             domanda.Text = "In quale anno John S. Pemberton di Atlanta inventò la Coca-Cola?"
  1129.             RadioButton1.Text = "1886"
  1130.             RadioButton2.Text = "1889"
  1131.             RadioButton3.Text = "1892"
  1132.             RadioButton4.Text = "1895"
  1133.         End If
  1134.         If domandacasuale = 1 Then
  1135.             domanda.Text = "Chi duetta insieme ad A.Celentano in L'emozione non ha voce?"
  1136.             RadioButton1.Text = "Renzo Arbore"
  1137.             RadioButton2.Text = "Biagio Antonacci"
  1138.             RadioButton3.Text = "Mina"
  1139.             RadioButton4.Text = "Renato Zero"
  1140.         End If
  1141.         If domandacasuale = 2 Then
  1142.             domanda.Text = "Con quale termine si indica il gruppo di persone che a teatro applaudono perchè ingaggiate a pagamento dall'autore?"
  1143.             RadioButton1.Text = "Parterre"
  1144.             RadioButton2.Text = "Foyer"
  1145.             RadioButton3.Text = "Claque"
  1146.             RadioButton4.Text = "Cheer"
  1147.         End If
  1148.         If domandacasuale = 3 Then
  1149.             domanda.Text = "Quale di queste sonde si trova nella Marmitta Catalitica ?"
  1150.             RadioButton1.Text = "Lombada"
  1151.             RadioButton2.Text = "Lamda"
  1152.             RadioButton3.Text = "Lambada"
  1153.             RadioButton4.Text = "Lambda"
  1154.         End If
  1155.         If domandacasuale = 4 Then
  1156.             domanda.Text = "In quale città abitava il don giovanni Giacomo Casanova ?"
  1157.             RadioButton1.Text = "Venezia"
  1158.             RadioButton2.Text = "Verona"
  1159.             RadioButton3.Text = "Firenze"
  1160.             RadioButton4.Text = "Trieste"
  1161.         End If
  1162.         If domandacasuale = 5 Then
  1163.             domanda.Text = "Prima di divenire,nel 1944,repubblica indipendente,a quale stato europeo appartenne per secoli l'islanda?"
  1164.             RadioButton1.Text = "Gran Bretagna"
  1165.             RadioButton2.Text = "Danimarca"
  1166.             RadioButton3.Text = "Norvegia"
  1167.             RadioButton4.Text = "Svezia"
  1168.         End If
  1169.         If domandacasuale = 6 Then
  1170.             domanda.Text = "Come sono chiamati i verbi latini che hanno forma passiva ma significato attivo?"
  1171.             RadioButton1.Text = "Anomali"
  1172.             RadioButton2.Text = "Difettivi"
  1173.             RadioButton3.Text = "Deponenti"
  1174.             RadioButton4.Text = "Semideponenti"
  1175.         End If
  1176.         If domandacasuale = 7 Then
  1177.             domanda.Text = "Secondo la Bibbia, cosa avrebbero trovato gli Ebrei nella Terra Promessa?"
  1178.             RadioButton1.Text = "Oro"
  1179.             RadioButton2.Text = "Amore e Preghiera"
  1180.             RadioButton3.Text = "Latte"
  1181.             RadioButton4.Text = "Latte e Miele"
  1182.         End If
  1183.         If domandacasuale = 8 Then
  1184.             domanda.Text = "Cosa significa il nome ebraico ''Sara''?"
  1185.             RadioButton1.Text = "Principessa"
  1186.             RadioButton2.Text = "Sicura di sé"
  1187.             RadioButton3.Text = "Cacciatrice"
  1188.             RadioButton4.Text = "Sapienza"
  1189.         End If
  1190.         If domandacasuale = 9 Then
  1191.             domanda.Text = "Chi canta la sigla del famoso telefilm ''Friends''?"
  1192.             RadioButton1.Text = "Goo Goo Dolls"
  1193.             RadioButton2.Text = "Rembrandts"
  1194.             RadioButton3.Text = "Starsailor"
  1195.             RadioButton4.Text = "Ash"
  1196.         End If
  1197.     End Sub
  1198.  
  1199.     Sub controllaundicesimolivello()
  1200.         Select Case domanda.Text
  1201.             Case "In quale anno John S. Pemberton di Atlanta inventò la Coca-Cola?"
  1202.                 If RadioButton1.Checked = True Then
  1203.                     lampeggia.Enabled = True
  1204.                 Else
  1205.                     giusta = False
  1206.                     lampeggia.Enabled = True
  1207.                 End If
  1208.             Case "Chi duetta insieme ad A.Celentano in L'emozione non ha voce?"
  1209.                 If RadioButton2.Checked = True Then
  1210.                     giusta = True
  1211.                     lampeggia.Enabled = True
  1212.                 Else
  1213.                     giusta = False
  1214.                     lampeggia.Enabled = True
  1215.                 End If
  1216.             Case "Con quale termine si indica il gruppo di persone che a teatro applaudono perchè ingaggiate a pagamento dall'autore?"
  1217.                 If RadioButton3.Checked = True Then
  1218.                     giusta = True
  1219.                     lampeggia.Enabled = True
  1220.                 Else
  1221.                     giusta = False
  1222.                     lampeggia.Enabled = True
  1223.                 End If
  1224.             Case "Quale di queste sonde si trova nella Marmitta Catalitica ?"
  1225.                 If RadioButton4.Checked = True Then
  1226.                     giusta = True
  1227.                     lampeggia.Enabled = True
  1228.                 Else
  1229.                     giusta = False
  1230.                     lampeggia.Enabled = True
  1231.                 End If
  1232.             Case "In quale città abitava il don giovanni Giacomo Casanova ?"
  1233.                 If RadioButton1.Checked = True Then
  1234.                     giusta = True
  1235.                     lampeggia.Enabled = True
  1236.                 Else
  1237.                     giusta = False
  1238.                     lampeggia.Enabled = True
  1239.                 End If
  1240.             Case "Prima di divenire,nel 1944,repubblica indipendente,a quale stato europeo appartenne per secoli l'islanda?"
  1241.                 If RadioButton2.Checked = True Then
  1242.                     giusta = True
  1243.                     lampeggia.Enabled = True
  1244.                 Else
  1245.                     giusta = False
  1246.                     lampeggia.Enabled = True
  1247.                 End If
  1248.             Case "Come sono chiamati i verbi latini che hanno forma passiva ma significato attivo?"
  1249.                 If RadioButton3.Checked = True Then
  1250.                     giusta = True
  1251.                     lampeggia.Enabled = True
  1252.                 Else
  1253.                     giusta = False
  1254.                     lampeggia.Enabled = True
  1255.                 End If
  1256.             Case "Secondo la Bibbia, cosa avrebbero trovato gli Ebrei nella Terra Promessa?"
  1257.                 If RadioButton4.Checked = True Then
  1258.                     giusta = True
  1259.                     lampeggia.Enabled = True
  1260.                 Else
  1261.                     giusta = False
  1262.                     lampeggia.Enabled = True
  1263.                 End If
  1264.             Case "Cosa significa il nome ebraico ''Sara''?"
  1265.                 If RadioButton1.Checked = True Then
  1266.                     giusta = True
  1267.                     lampeggia.Enabled = True
  1268.                 Else
  1269.                     giusta = False
  1270.                     lampeggia.Enabled = True
  1271.                 End If
  1272.             Case "Chi canta la sigla del famoso telefilm ''Friends''?"
  1273.                 If RadioButton2.Checked = True Then
  1274.                     giusta = True
  1275.                     lampeggia.Enabled = True
  1276.                 Else
  1277.                     giusta = False
  1278.                     lampeggia.Enabled = True
  1279.                 End If
  1280.         End Select
  1281.     End Sub
  1282.  
  1283.     Sub controlladecimolivello()
  1284.         Select Case domanda.Text
  1285.             Case "Qual è il massimo numero di zampe che è mai stato contato in un millepiedi?"
  1286.                 If RadioButton1.Checked = True Then
  1287.                     lampeggia.Enabled = True
  1288.                 Else
  1289.                     giusta = False
  1290.                     lampeggia.Enabled = True
  1291.                 End If
  1292.             Case "Quale di questi cocktail non è a base di rum?"
  1293.                 If RadioButton2.Checked = True Then
  1294.                     giusta = True
  1295.                     lampeggia.Enabled = True
  1296.                 Else
  1297.                     giusta = False
  1298.                     lampeggia.Enabled = True
  1299.                 End If
  1300.             Case "Chi guidava la Ferrari che nel 1951 vinse per la prima volta un Gran Premio di F1?"
  1301.                 If RadioButton3.Checked = True Then
  1302.                     giusta = True
  1303.                     lampeggia.Enabled = True
  1304.                 Else
  1305.                     giusta = False
  1306.                     lampeggia.Enabled = True
  1307.                 End If
  1308.             Case "Da chi è stato vinto l'80° giro d'Italia?"
  1309.                 If RadioButton4.Checked = True Then
  1310.                     giusta = True
  1311.                     lampeggia.Enabled = True
  1312.                 Else
  1313.                     giusta = False
  1314.                     lampeggia.Enabled = True
  1315.                 End If
  1316.             Case "Nella pallacanestro, un giocatore che bestemmia in campo va punito con quale fallo..."
  1317.                 If RadioButton1.Checked = True Then
  1318.                     giusta = True
  1319.                     lampeggia.Enabled = True
  1320.                 Else
  1321.                     giusta = False
  1322.                     lampeggia.Enabled = True
  1323.                 End If
  1324.             Case "Una persona che paga meno tasse di quelle che gli competono commette un reato di:"
  1325.                 If RadioButton2.Checked = True Then
  1326.                     giusta = True
  1327.                     lampeggia.Enabled = True
  1328.                 Else
  1329.                     giusta = False
  1330.                     lampeggia.Enabled = True
  1331.                 End If
  1332.             Case "Cosa significa per il Patto di Varsavia la data del 31 Marzo 1991?"
  1333.                 If RadioButton3.Checked = True Then
  1334.                     giusta = True
  1335.                     lampeggia.Enabled = True
  1336.                 Else
  1337.                     giusta = False
  1338.                     lampeggia.Enabled = True
  1339.                 End If
  1340.             Case "Come si chiamano le cellule che unendosi formano l'embrione?"
  1341.                 If RadioButton4.Checked = True Then
  1342.                     giusta = True
  1343.                     lampeggia.Enabled = True
  1344.                 Else
  1345.                     giusta = False
  1346.                     lampeggia.Enabled = True
  1347.                 End If
  1348.             Case "Fino a quanti chilometri i fiordi norvegiesi penetrano tra le montagne dell'interno?"
  1349.                 If RadioButton1.Checked = True Then
  1350.                     giusta = True
  1351.                     lampeggia.Enabled = True
  1352.                 Else
  1353.                     giusta = False
  1354.                     lampeggia.Enabled = True
  1355.                 End If
  1356.             Case "Come si chiama la più settentrionale città del mondo?"
  1357.                 If RadioButton2.Checked = True Then
  1358.                     giusta = True
  1359.                     lampeggia.Enabled = True
  1360.                 Else
  1361.                     giusta = False
  1362.                     lampeggia.Enabled = True
  1363.                 End If
  1364.         End Select
  1365.     End Sub
  1366.  
  1367.     Sub decimolivello()
  1368.         domandacasuale = Math.Round(Rnd() * 9)
  1369.         lampeggia.Enabled = False
  1370.         esatta.Visible = False
  1371.         contalampeggia = 0
  1372.         errata.Visible = False
  1373.         If domandacasuale = 0 Then
  1374.             domanda.Text = "Qual è il massimo numero di zampe che è mai stato contato in un millepiedi?"
  1375.             RadioButton1.Text = "752"
  1376.             RadioButton2.Text = "861"
  1377.             RadioButton3.Text = "964"
  1378.             RadioButton4.Text = "1013"
  1379.         End If
  1380.         If domandacasuale = 1 Then
  1381.             domanda.Text = "Quale di questi cocktail non è a base di rum?"
  1382.             RadioButton1.Text = "Daiquiri"
  1383.             RadioButton2.Text = "Alexander"
  1384.             RadioButton3.Text = "Mojito"
  1385.             RadioButton4.Text = "Pinha Colada"
  1386.         End If
  1387.         If domandacasuale = 2 Then
  1388.             domanda.Text = "Chi guidava la Ferrari che nel 1951 vinse per la prima volta un Gran Premio di F1?"
  1389.             RadioButton1.Text = "Rhil Hill"
  1390.             RadioButton2.Text = "Mike Hawthorn"
  1391.             RadioButton3.Text = "Froilan Gonzales"
  1392.             RadioButton4.Text = "Lorenzo Bandini"
  1393.         End If
  1394.         If domandacasuale = 3 Then
  1395.             domanda.Text = "Da chi è stato vinto l'80° giro d'Italia?"
  1396.             RadioButton1.Text = "Pantani"
  1397.             RadioButton2.Text = "Tonkov"
  1398.             RadioButton3.Text = "Leblanc"
  1399.             RadioButton4.Text = "Gotti"
  1400.         End If
  1401.         If domandacasuale = 4 Then
  1402.             domanda.Text = "Nella pallacanestro, un giocatore che bestemmia in campo va punito con quale fallo..."
  1403.             RadioButton1.Text = "fallo tecnico"
  1404.             RadioButton2.Text = "fallo antisportivo"
  1405.             RadioButton3.Text = "doppio fallo"
  1406.             RadioButton4.Text = "fallo squalificante"
  1407.         End If
  1408.         If domandacasuale = 5 Then
  1409.             domanda.Text = "Una persona che paga meno tasse di quelle che gli competono commette un reato di:"
  1410.             RadioButton1.Text = "Evasione"
  1411.             RadioButton2.Text = "Elusione"
  1412.             RadioButton3.Text = "Peculato"
  1413.             RadioButton4.Text = "Concussione"
  1414.         End If
  1415.         If domandacasuale = 6 Then
  1416.             domanda.Text = "Cosa significa per il Patto di Varsavia la data del 31 Marzo 1991?"
  1417.             RadioButton1.Text = "la fusione con la CEE"
  1418.             RadioButton2.Text = "l'ammissione alla presidenza degli altri stati oltre l'URSS"
  1419.             RadioButton3.Text = "la fine del patto stesso"
  1420.             RadioButton4.Text = "la rivendicazione dei movimenti laici"
  1421.         End If
  1422.         If domandacasuale = 7 Then
  1423.             domanda.Text = "Come si chiamano le cellule che unendosi formano l'embrione?"
  1424.             RadioButton1.Text = "Oveti"
  1425.             RadioButton2.Text = "Gameti"
  1426.             RadioButton3.Text = "Magneti"
  1427.             RadioButton4.Text = "Zigoti"
  1428.         End If
  1429.         If domandacasuale = 8 Then
  1430.             domanda.Text = "Fino a quanti chilometri i fiordi norvegiesi penetrano tra le montagne dell'interno?"
  1431.             RadioButton1.Text = "fino a cinquanta chilometri"
  1432.             RadioButton2.Text = "fino a cento chilometri"
  1433.             RadioButton3.Text = "fino a venti chilometri"
  1434.             RadioButton4.Text = "fino a tre/quattro chilometri"
  1435.         End If
  1436.         If domandacasuale = 9 Then
  1437.             domanda.Text = "Come si chiama la più settentrionale città del mondo?"
  1438.             RadioButton1.Text = "Narvik"
  1439.             RadioButton2.Text = "Hammerfest"
  1440.             RadioButton3.Text = "Reykjaik"
  1441.             RadioButton4.Text = "Turku"
  1442.         End If
  1443.     End Sub
  1444.  
  1445.     Sub nonolivello()
  1446.         domandacasuale = Math.Round(Rnd() * 9)
  1447.         lampeggia.Enabled = False
  1448.         esatta.Visible = False
  1449.         contalampeggia = 0
  1450.         errata.Visible = False
  1451.         If domandacasuale = 0 Then
  1452.             domanda.Text = "I Guelfi erano i sostenitori.."
  1453.             RadioButton1.Text = "del Papa"
  1454.             RadioButton2.Text = "di nessuno"
  1455.             RadioButton3.Text = "dell’Imperatore"
  1456.             RadioButton4.Text = "della Regina"
  1457.         End If
  1458.         If domandacasuale = 1 Then
  1459.             domanda.Text = "Il nome dello stadio in cui gioca il Liverpool è:"
  1460.             RadioButton1.Text = "Westfalen"
  1461.             RadioButton2.Text = "Anfield Road"
  1462.             RadioButton3.Text = "Old Trafford"
  1463.             RadioButton4.Text = "Wembley"
  1464.         End If
  1465.         If domandacasuale = 2 Then
  1466.             domanda.Text = "Quale calciatore italiano ha segnato più reti in nazionale?"
  1467.             RadioButton1.Text = "Piola"
  1468.             RadioButton2.Text = "Bottega"
  1469.             RadioButton3.Text = "Riva"
  1470.             RadioButton4.Text = "Rossi"
  1471.         End If
  1472.         If domandacasuale = 3 Then
  1473.             domanda.Text = "Quale di queste provincie non e' nel veneto"
  1474.             RadioButton1.Text = "in contee"
  1475.             RadioButton2.Text = "Oderzo"
  1476.             RadioButton3.Text = "Gorgo al monticano"
  1477.             RadioButton4.Text = "Ponte di piave"
  1478.         End If
  1479.         If domandacasuale = 4 Then
  1480.             domanda.Text = "Come si traduce in latino la parola ''uccello'' ?"
  1481.             RadioButton1.Text = "Avium"
  1482.             RadioButton2.Text = "Luscinia"
  1483.             RadioButton3.Text = "Volatilis"
  1484.             RadioButton4.Text = "Uccellus"
  1485.         End If
  1486.         If domandacasuale = 5 Then
  1487.             domanda.Text = "Quale tra questi paesi ha sulla faccia nazionale dell'Euro un unica immagine per tutte le monete?"
  1488.             RadioButton1.Text = "Austria"
  1489.             RadioButton2.Text = "Irlanda"
  1490.             RadioButton3.Text = "Italia"
  1491.             RadioButton4.Text = "Grecia"
  1492.         End If
  1493.         If domandacasuale = 6 Then
  1494.             domanda.Text = "Quale di queste Nazioni NON fa parte della CEE ?"
  1495.             RadioButton1.Text = "Germania"
  1496.             RadioButton2.Text = "Olanda"
  1497.             RadioButton3.Text = "Svizzera"
  1498.             RadioButton4.Text = "Spagna"
  1499.         End If
  1500.         If domandacasuale = 7 Then
  1501.             domanda.Text = "Quale di queste forze pubbliche non è considerata militare ?"
  1502.             RadioButton1.Text = "Carabinieri"
  1503.             RadioButton2.Text = "Vigili del Fuoco"
  1504.             RadioButton3.Text = "Guardia di Finanza"
  1505.             RadioButton4.Text = "Polizia di Stato"
  1506.         End If
  1507.         If domandacasuale = 8 Then
  1508.             domanda.Text = "Di quale città Italiana appartiene la squadra dell' Atalanta ?"
  1509.             RadioButton1.Text = "Bergamo"
  1510.             RadioButton2.Text = "Verona"
  1511.             RadioButton3.Text = "Lucca"
  1512.             RadioButton4.Text = "Varese"
  1513.         End If
  1514.         If domandacasuale = 9 Then
  1515.             domanda.Text = "Se in Olanda vediamo passare un ''Hond'' cosa abbiamo visto ?"
  1516.             RadioButton1.Text = "Un topo"
  1517.             RadioButton2.Text = "Un cane"
  1518.             RadioButton3.Text = "Un gatto"
  1519.             RadioButton4.Text = "Un maiale"
  1520.         End If
  1521.     End Sub
  1522.  
  1523.     Sub controllanonolivello()
  1524.         Select Case domanda.Text
  1525.             Case "I Guelfi erano i sostenitori.."
  1526.                 If RadioButton1.Checked = True Then
  1527.                     lampeggia.Enabled = True
  1528.                 Else
  1529.                     giusta = False
  1530.                     lampeggia.Enabled = True
  1531.                 End If
  1532.             Case "Il nome dello stadio in cui gioca il Liverpool è:"
  1533.                 If RadioButton2.Checked = True Then
  1534.                     giusta = True
  1535.                     lampeggia.Enabled = True
  1536.                 Else
  1537.                     giusta = False
  1538.                     lampeggia.Enabled = True
  1539.                 End If
  1540.             Case "Quale calciatore italiano ha segnato più reti in nazionale?"
  1541.                 If RadioButton3.Checked = True Then
  1542.                     giusta = True
  1543.                     lampeggia.Enabled = True
  1544.                 Else
  1545.                     giusta = False
  1546.                     lampeggia.Enabled = True
  1547.                 End If
  1548.             Case "Quale di queste provincie non e' nel veneto"
  1549.                 If RadioButton4.Checked = True Then
  1550.                     giusta = True
  1551.                     lampeggia.Enabled = True
  1552.                 Else
  1553.                     giusta = False
  1554.                     lampeggia.Enabled = True
  1555.                 End If
  1556.             Case "Come si traduce in latino la parola ''uccello'' ?"
  1557.                 If RadioButton1.Checked = True Then
  1558.                     giusta = True
  1559.                     lampeggia.Enabled = True
  1560.                 Else
  1561.                     giusta = False
  1562.                     lampeggia.Enabled = True
  1563.                 End If
  1564.             Case "Quale tra questi paesi ha sulla faccia nazionale dell'Euro un unica immagine per tutte le monete?"
  1565.                 If RadioButton2.Checked = True Then
  1566.                     giusta = True
  1567.                     lampeggia.Enabled = True
  1568.                 Else
  1569.                     giusta = False
  1570.                     lampeggia.Enabled = True
  1571.                 End If
  1572.             Case "Quale di queste Nazioni NON fa parte della CEE ?"
  1573.                 If RadioButton3.Checked = True Then
  1574.                     giusta = True
  1575.                     lampeggia.Enabled = True
  1576.                 Else
  1577.                     giusta = False
  1578.                     lampeggia.Enabled = True
  1579.                 End If
  1580.             Case "Quale di queste forze pubbliche non è considerata militare ?"
  1581.                 If RadioButton4.Checked = True Then
  1582.                     giusta = True
  1583.                     lampeggia.Enabled = True
  1584.                 Else
  1585.                     giusta = False
  1586.                     lampeggia.Enabled = True
  1587.                 End If
  1588.             Case "Di quale città Italiana appartiene la squadra dell' Atalanta ?"
  1589.                 If RadioButton1.Checked = True Then
  1590.                     giusta = True
  1591.                     lampeggia.Enabled = True
  1592.                 Else
  1593.                     giusta = False
  1594.                     lampeggia.Enabled = True
  1595.                 End If
  1596.             Case "Se in Olanda vediamo passare un ''Hond'' cosa abbiamo visto ?"
  1597.                 If RadioButton2.Checked = True Then
  1598.                     giusta = True
  1599.                     lampeggia.Enabled = True
  1600.                 Else
  1601.                     giusta = False
  1602.                     lampeggia.Enabled = True
  1603.                 End If
  1604.         End Select
  1605.     End Sub
  1606.  
  1607.  
  1608.     Sub controllaottavolivello()
  1609.         Select Case domanda.Text
  1610.             Case "Il primo satellite articiciale della storia R-7 è stato inviato nello spazio da quale nazione?"
  1611.                 If RadioButton1.Checked = True Then
  1612.                     lampeggia.Enabled = True
  1613.                 Else
  1614.                     giusta = False
  1615.                     lampeggia.Enabled = True
  1616.                 End If
  1617.             Case "Quale di queste estensioni non indica un file compresso"
  1618.                 If RadioButton2.Checked = True Then
  1619.                     giusta = True
  1620.                     lampeggia.Enabled = True
  1621.                 Else
  1622.                     giusta = False
  1623.                     lampeggia.Enabled = True
  1624.                 End If
  1625.             Case "Come si chiama il cantante che ha abbandonato i Pooh alla fine degli anni 70?"
  1626.                 If RadioButton2.Checked = True Then
  1627.                     giusta = True
  1628.                     lampeggia.Enabled = True
  1629.                 Else
  1630.                     giusta = False
  1631.                     lampeggia.Enabled = True
  1632.                 End If
  1633.             Case "Come è divisa la francia dal punto di vista amministrativo?"
  1634.                 If RadioButton4.Checked = True Then
  1635.                     giusta = True
  1636.                     lampeggia.Enabled = True
  1637.                 Else
  1638.                     giusta = False
  1639.                     lampeggia.Enabled = True
  1640.                 End If
  1641.             Case "Dove furono inventati gli sci?"
  1642.                 If RadioButton1.Checked = True Then
  1643.                     giusta = True
  1644.                     lampeggia.Enabled = True
  1645.                 Else
  1646.                     giusta = False
  1647.                     lampeggia.Enabled = True
  1648.                 End If
  1649.             Case "In che anno è iniziato lo show televisivo ''Maurizio Costanzo Show''?"
  1650.                 If RadioButton2.Checked = True Then
  1651.                     giusta = True
  1652.                     lampeggia.Enabled = True
  1653.                 Else
  1654.                     giusta = False
  1655.                     lampeggia.Enabled = True
  1656.                 End If
  1657.             Case "Di quale nazionalità è la famosa Jennifer Lopez?"
  1658.                 If RadioButton1.Checked = True Then
  1659.                     giusta = True
  1660.                     lampeggia.Enabled = True
  1661.                 Else
  1662.                     giusta = False
  1663.                     lampeggia.Enabled = True
  1664.                 End If
  1665.             Case "Qual'è l'inno nazionale più antico del mondo?"
  1666.                 If RadioButton4.Checked = True Then
  1667.                     giusta = True
  1668.                     lampeggia.Enabled = True
  1669.                 Else
  1670.                     giusta = False
  1671.                     lampeggia.Enabled = True
  1672.                 End If
  1673.             Case "Quanti satelliti si conoscono di Giove?"
  1674.                 If RadioButton4.Checked = True Then
  1675.                     giusta = True
  1676.                     lampeggia.Enabled = True
  1677.                 Else
  1678.                     giusta = False
  1679.                     lampeggia.Enabled = True
  1680.                 End If
  1681.             Case "Quale tra queste non è una canzone dei Queen?"
  1682.                 If RadioButton4.Checked = True Then
  1683.                     giusta = True
  1684.                     lampeggia.Enabled = True
  1685.                 Else
  1686.                     giusta = False
  1687.                     lampeggia.Enabled = True
  1688.                 End If
  1689.         End Select
  1690.     End Sub
  1691.  
  1692.     Sub ottavolivello()
  1693.         domandacasuale = Math.Round(Rnd() * 9)
  1694.         lampeggia.Enabled = False
  1695.         esatta.Visible = False
  1696.         contalampeggia = 0
  1697.         errata.Visible = False
  1698.         If domandacasuale = 0 Then
  1699.             domanda.Text = "Il primo satellite articiciale della storia R-7 è stato inviato nello spazio da quale nazione?"
  1700.             RadioButton1.Text = "Unione Sovietica"
  1701.             RadioButton2.Text = "Usa"
  1702.             RadioButton3.Text = "Indonesia"
  1703.             RadioButton4.Text = "Bulgaria"
  1704.         End If
  1705.         If domandacasuale = 1 Then
  1706.             domanda.Text = "Quale di queste estensioni non indica un file compresso"
  1707.             RadioButton1.Text = ".zip"
  1708.             RadioButton2.Text = ".jar"
  1709.             RadioButton3.Text = ".arj"
  1710.             RadioButton4.Text = ".tar"
  1711.         End If
  1712.         If domandacasuale = 2 Then
  1713.             domanda.Text = "Come si chiama il cantante che ha abbandonato i Pooh alla fine degli anni 70?"
  1714.             RadioButton1.Text = "Enrico Ruggeri"
  1715.             RadioButton2.Text = "Riccardo Fogli"
  1716.             RadioButton3.Text = "Mino Reitano"
  1717.             RadioButton4.Text = "Umberto Tozzi"
  1718.         End If
  1719.         If domandacasuale = 3 Then
  1720.             domanda.Text = "Come è divisa la francia dal punto di vista amministrativo?"
  1721.             RadioButton1.Text = "in contee"
  1722.             RadioButton2.Text = "in compartimenti"
  1723.             RadioButton3.Text = "in regioni"
  1724.             RadioButton4.Text = "in dipartimenti"
  1725.         End If
  1726.         If domandacasuale = 4 Then
  1727.             domanda.Text = "Dove furono inventati gli sci?"
  1728.             RadioButton1.Text = "in Scandinavia"
  1729.             RadioButton2.Text = "in Austria"
  1730.             RadioButton3.Text = "in Italia"
  1731.             RadioButton4.Text = "in Canada"
  1732.         End If
  1733.         If domandacasuale = 5 Then
  1734.             domanda.Text = "In che anno è iniziato lo show televisivo ''Maurizio Costanzo Show''?"
  1735.             RadioButton1.Text = "1980"
  1736.             RadioButton2.Text = "1981"
  1737.             RadioButton3.Text = "1982"
  1738.             RadioButton4.Text = "1983"
  1739.         End If
  1740.         If domandacasuale = 6 Then
  1741.             domanda.Text = "Di quale nazionalità è la famosa Jennifer Lopez?"
  1742.             RadioButton1.Text = "Portorico"
  1743.             RadioButton2.Text = "Costarica"
  1744.             RadioButton3.Text = "Messico"
  1745.             RadioButton4.Text = "Brasile"
  1746.         End If
  1747.         If domandacasuale = 7 Then
  1748.             domanda.Text = "Qual'è l'inno nazionale più antico del mondo?"
  1749.             RadioButton1.Text = "Francese"
  1750.             RadioButton2.Text = "Inglese"
  1751.             RadioButton3.Text = "Spagnolo"
  1752.             RadioButton4.Text = "Giapponese"
  1753.         End If
  1754.         If domandacasuale = 8 Then
  1755.             domanda.Text = "Quanti satelliti si conoscono di Giove?"
  1756.             RadioButton1.Text = "17"
  1757.             RadioButton2.Text = "18"
  1758.             RadioButton3.Text = "25"
  1759.             RadioButton4.Text = "28"
  1760.         End If
  1761.         If domandacasuale = 9 Then
  1762.             domanda.Text = "Quale tra queste non è una canzone dei Queen?"
  1763.             RadioButton1.Text = "Innuendo"
  1764.             RadioButton2.Text = "Radio ga ga"
  1765.             RadioButton3.Text = "A kind of magic"
  1766.             RadioButton4.Text = "Wild Boys"
  1767.         End If
  1768.     End Sub
  1769.  
  1770.     Sub settimolivello()
  1771.         domandacasuale = Math.Round(Rnd() * 9)
  1772.         lampeggia.Enabled = False
  1773.         esatta.Visible = False
  1774.         contalampeggia = 0
  1775.         errata.Visible = False
  1776.         If domandacasuale = 0 Then
  1777.             domanda.Text = "Cos'è il secolo dei lumi?"
  1778.             RadioButton1.Text = "Il secolo della rivoluzione"
  1779.             RadioButton2.Text = "Il secolo dei pazzi"
  1780.             RadioButton3.Text = "Il secolo della ragione"
  1781.             RadioButton4.Text = "L'apocalisse"
  1782.         End If
  1783.         If domandacasuale = 1 Then
  1784.             domanda.Text = "Ankara è la capitale di quale stato?"
  1785.             RadioButton1.Text = "Turchia"
  1786.             RadioButton2.Text = "Iran"
  1787.             RadioButton3.Text = "Iraq"
  1788.             RadioButton4.Text = "Georgia"
  1789.         End If
  1790.         If domandacasuale = 2 Then
  1791.             domanda.Text = "quale tra queste è un sinonimo di ''prussiano''?"
  1792.             RadioButton1.Text = "Pacchiano"
  1793.             RadioButton2.Text = "Nessuno di questi"
  1794.             RadioButton3.Text = "Nobile"
  1795.             RadioButton4.Text = "Intransigente"
  1796.         End If
  1797.         If domandacasuale = 3 Then
  1798.             domanda.Text = "Qual'è la capitale della California?"
  1799.             RadioButton1.Text = "Los Angeles"
  1800.             RadioButton2.Text = "Sacramento"
  1801.             RadioButton3.Text = "San Francisco"
  1802.             RadioButton4.Text = "Berkeley"
  1803.         End If
  1804.         If domandacasuale = 4 Then
  1805.             domanda.Text = "In che anno fu costruita la torre Eiffel?"
  1806.             RadioButton1.Text = "1878"
  1807.             RadioButton2.Text = "1889"
  1808.             RadioButton3.Text = "1900"
  1809.             RadioButton4.Text = "1850"
  1810.         End If
  1811.         If domandacasuale = 6 Then
  1812.             domanda.Text = "Da dove deriva la musica blues?"
  1813.             RadioButton1.Text = "dal jazz"
  1814.             RadioButton2.Text = "dal country"
  1815.             RadioButton3.Text = "dai work song"
  1816.             RadioButton4.Text = "dal reggae"
  1817.         End If
  1818.         If domandacasuale = 5 Then
  1819.             domanda.Text = "In quale squadra giocava Di Canio ?"
  1820.             RadioButton1.Text = "West Ham"
  1821.             RadioButton2.Text = "Liverpool"
  1822.             RadioButton3.Text = "Ipswich Town"
  1823.             RadioButton4.Text = "Manchester City"
  1824.         End If
  1825.         If domandacasuale = 7 Then
  1826.             domanda.Text = "Se beviamo un Tamarindo, che gusto percepiamo ?"
  1827.             RadioButton1.Text = "Fragola"
  1828.             RadioButton2.Text = "Avocado"
  1829.             RadioButton3.Text = "Mandorla"
  1830.             RadioButton4.Text = "Nocciola"
  1831.         End If
  1832.         If domandacasuale = 8 Then
  1833.             domanda.Text = "Il secondo pianeta dal Sole è:"
  1834.             RadioButton1.Text = "Venere"
  1835.             RadioButton2.Text = "Mercurio"
  1836.             RadioButton3.Text = "Marte"
  1837.             RadioButton4.Text = "Saturno"
  1838.         End If
  1839.         If domandacasuale = 9 Then
  1840.             domanda.Text = "Qual'è il valore esatto dell'accelerazione di gravità?"
  1841.             RadioButton1.Text = "9.23m/s"
  1842.             RadioButton2.Text = "9.64m/s"
  1843.             RadioButton3.Text = "9.79m/s"
  1844.             RadioButton4.Text = "9.81m/s"
  1845.         End If
  1846.     End Sub
  1847.  
  1848.     Sub controllasettimolivello()
  1849.         Select Case domanda.Text
  1850.             Case "Cos'è il secolo dei lumi?"
  1851.                 If RadioButton3.Checked = True Then
  1852.                     lampeggia.Enabled = True
  1853.                 Else
  1854.                     giusta = False
  1855.                     lampeggia.Enabled = True
  1856.                 End If
  1857.             Case "Ankara è la capitale di quale stato?"
  1858.                 If RadioButton1.Checked = True Then
  1859.                     giusta = True
  1860.                     lampeggia.Enabled = True
  1861.                 Else
  1862.                     giusta = False
  1863.                     lampeggia.Enabled = True
  1864.                 End If
  1865.             Case "quale tra queste è un sinonimo di ''prussiano''?"
  1866.                 If RadioButton4.Checked = True Then
  1867.                     giusta = True
  1868.                     lampeggia.Enabled = True
  1869.                 Else
  1870.                     giusta = False
  1871.                     lampeggia.Enabled = True
  1872.                 End If
  1873.             Case "Qual'è la capitale della California?"
  1874.                 If RadioButton2.Checked = True Then
  1875.                     giusta = True
  1876.                     lampeggia.Enabled = True
  1877.                 Else
  1878.                     giusta = False
  1879.                     lampeggia.Enabled = True
  1880.                 End If
  1881.             Case "In che anno fu costruita la torre Eiffel?"
  1882.                 If RadioButton2.Checked = True Then
  1883.                     giusta = True
  1884.                     lampeggia.Enabled = True
  1885.                 Else
  1886.                     giusta = False
  1887.                     lampeggia.Enabled = True
  1888.                 End If
  1889.             Case "Da dove deriva la musica blues?"
  1890.                 If RadioButton3.Checked = True Then
  1891.                     giusta = True
  1892.                     lampeggia.Enabled = True
  1893.                 Else
  1894.                     giusta = False
  1895.                     lampeggia.Enabled = True
  1896.                 End If
  1897.             Case "In quale squadra giocava Di Canio ?"
  1898.                 If RadioButton1.Checked = True Then
  1899.                     giusta = True
  1900.                     lampeggia.Enabled = True
  1901.                 Else
  1902.                     giusta = False
  1903.                     lampeggia.Enabled = True
  1904.                 End If
  1905.             Case "Se beviamo un Tamarindo, che gusto percepiamo ?"
  1906.                 If RadioButton3.Checked = True Then
  1907.                     giusta = True
  1908.                     lampeggia.Enabled = True
  1909.                 Else
  1910.                     giusta = False
  1911.                     lampeggia.Enabled = True
  1912.                 End If
  1913.             Case "Il secondo pianeta dal Sole è:"
  1914.                 If RadioButton1.Checked = True Then
  1915.                     giusta = True
  1916.                     lampeggia.Enabled = True
  1917.                 Else
  1918.                     giusta = False
  1919.                     lampeggia.Enabled = True
  1920.                 End If
  1921.             Case "Qual'è il valore esatto dell'accelerazione di gravità?"
  1922.                 If RadioButton4.Checked = True Then
  1923.                     giusta = True
  1924.                     lampeggia.Enabled = True
  1925.                 Else
  1926.                     giusta = False
  1927.                     lampeggia.Enabled = True
  1928.                 End If
  1929.         End Select
  1930.     End Sub
  1931.  
  1932.     Sub controllasestolivello()
  1933.         Select Case domanda.Text
  1934.             Case "Quando fu scoperta l'America?"
  1935.                 If RadioButton4.Checked = True Then
  1936.                     lampeggia.Enabled = True
  1937.                 Else
  1938.                     giusta = False
  1939.                     lampeggia.Enabled = True
  1940.                 End If
  1941.             Case "Chi ha vinto il campionato di F1 nel 1996?"
  1942.                 If RadioButton1.Checked = True Then
  1943.                     giusta = True
  1944.                     lampeggia.Enabled = True
  1945.                 Else
  1946.                     giusta = False
  1947.                     lampeggia.Enabled = True
  1948.                 End If
  1949.             Case "Chi scrisse ''L'isola del tesoro''?"
  1950.                 If RadioButton3.Checked = True Then
  1951.                     giusta = True
  1952.                     lampeggia.Enabled = True
  1953.                 Else
  1954.                     giusta = False
  1955.                     lampeggia.Enabled = True
  1956.                 End If
  1957.             Case "In che anno il trio Morandi-Ruggeri-Tozzi ha vinto il festival di Sanremo?"
  1958.                 If RadioButton1.Checked = True Then
  1959.                     giusta = True
  1960.                     lampeggia.Enabled = True
  1961.                 Else
  1962.                     giusta = False
  1963.                     lampeggia.Enabled = True
  1964.                 End If
  1965.             Case "Sto facendo '' Troubleshooting '' in Inghilterra quindi sto:"
  1966.                 If RadioButton2.Checked = True Then
  1967.                     giusta = True
  1968.                     lampeggia.Enabled = True
  1969.                 Else
  1970.                     giusta = False
  1971.                     lampeggia.Enabled = True
  1972.                 End If
  1973.             Case "La sigla ''s.r.l.'' sta per..."
  1974.                 If RadioButton4.Checked = True Then
  1975.                     giusta = True
  1976.                     lampeggia.Enabled = True
  1977.                 Else
  1978.                     giusta = False
  1979.                     lampeggia.Enabled = True
  1980.                 End If
  1981.             Case "Chi ha scritto il romanzo ''l'ultimo di mohicani''"
  1982.                 If RadioButton2.Checked = True Then
  1983.                     giusta = True
  1984.                     lampeggia.Enabled = True
  1985.                 Else
  1986.                     giusta = False
  1987.                     lampeggia.Enabled = True
  1988.                 End If
  1989.             Case "Da quale direzione spira il Libeccio?"
  1990.                 If RadioButton1.Checked = True Then
  1991.                     giusta = True
  1992.                     lampeggia.Enabled = True
  1993.                 Else
  1994.                     giusta = False
  1995.                     lampeggia.Enabled = True
  1996.                 End If
  1997.             Case "Il simbolo del Chievo è ?"
  1998.                 If RadioButton1.Checked = True Then
  1999.                     giusta = True
  2000.                     lampeggia.Enabled = True
  2001.                 Else
  2002.                     giusta = False
  2003.                     lampeggia.Enabled = True
  2004.                 End If
  2005.             Case "In quale Gran Premio è morto Airton Senna?"
  2006.                 If RadioButton2.Checked = True Then
  2007.                     giusta = True
  2008.                     lampeggia.Enabled = True
  2009.                 Else
  2010.                     giusta = False
  2011.                     lampeggia.Enabled = True
  2012.                 End If
  2013.         End Select
  2014.     End Sub
  2015.  
  2016.     Sub sestolivello()
  2017.         domandacasuale = Math.Round(Rnd() * 9)
  2018.         lampeggia.Enabled = False
  2019.         esatta.Visible = False
  2020.         contalampeggia = 0
  2021.         errata.Visible = False
  2022.         If domandacasuale = 0 Then
  2023.             domanda.Text = "Quando fu scoperta l'America?"
  2024.             RadioButton1.Text = "1842"
  2025.             RadioButton2.Text = "1342"
  2026.             RadioButton3.Text = "1242"
  2027.             RadioButton4.Text = "1492"
  2028.         End If
  2029.         If domandacasuale = 1 Then
  2030.             domanda.Text = "Chi ha vinto il campionato di F1 nel 1996?"
  2031.             RadioButton1.Text = "Damon Hill"
  2032.             RadioButton2.Text = "David Coulthard"
  2033.             RadioButton3.Text = "Mika Hakkinen"
  2034.             RadioButton4.Text = "Jacques Villeneuve"
  2035.         End If
  2036.         If domandacasuale = 2 Then
  2037.             domanda.Text = "Chi scrisse ''L'isola del tesoro''?"
  2038.             RadioButton1.Text = "Melbaunde"
  2039.             RadioButton2.Text = "Agatha Christie"
  2040.             RadioButton3.Text = "Stevenson"
  2041.             RadioButton4.Text = "Leopardi"
  2042.         End If
  2043.         If domandacasuale = 3 Then
  2044.             domanda.Text = "In che anno il trio Morandi-Ruggeri-Tozzi ha vinto il festival di Sanremo?"
  2045.             RadioButton1.Text = "1987"
  2046.             RadioButton2.Text = "1988"
  2047.             RadioButton3.Text = "1989"
  2048.             RadioButton4.Text = "Mai"
  2049.         End If
  2050.         If domandacasuale = 4 Then
  2051.             domanda.Text = "Sto facendo '' Troubleshooting '' in Inghilterra quindi sto:"
  2052.             RadioButton1.Text = "Calciando un pallone"
  2053.             RadioButton2.Text = "Analizzando un problema"
  2054.             RadioButton3.Text = "Tirando con l'arco"
  2055.             RadioButton4.Text = "Bussando alla porta"
  2056.         End If
  2057.         If domandacasuale = 6 Then
  2058.             domanda.Text = "Chi ha scritto il romanzo ''l'ultimo di mohicani''"
  2059.             RadioButton1.Text = "marilyn manson"
  2060.             RadioButton2.Text = "fenime cuper"
  2061.             RadioButton3.Text = "walter scott"
  2062.             RadioButton4.Text = "cuocci carlo"
  2063.         End If
  2064.         If domandacasuale = 5 Then
  2065.             domanda.Text = "Da quale direzione spira il Libeccio?"
  2066.             RadioButton1.Text = "Ovest"
  2067.             RadioButton2.Text = "Sudest"
  2068.             RadioButton3.Text = "Sud"
  2069.             RadioButton4.Text = "Sudovest"
  2070.         End If
  2071.         If domandacasuale = 7 Then
  2072.             domanda.Text = "Il simbolo del Chievo è ?"
  2073.             RadioButton1.Text = "un condottiero"
  2074.             RadioButton2.Text = "un asino"
  2075.             RadioButton3.Text = "un cavallo"
  2076.             RadioButton4.Text = "un leone"
  2077.         End If
  2078.         If domandacasuale = 8 Then
  2079.             domanda.Text = "La sigla ''s.r.l.'' sta per..."
  2080.             RadioButton1.Text = "Società Raramente Lontana"
  2081.             RadioButton2.Text = "Società di Riciclo del Lavoro"
  2082.             RadioButton3.Text = "Saranno Riepilogo Lavoro"
  2083.             RadioButton4.Text = "Società Responsabilità Limitata"
  2084.         End If
  2085.         If domandacasuale = 9 Then
  2086.             domanda.Text = "In quale Gran Premio è morto Airton Senna?"
  2087.             RadioButton1.Text = "San Marino "
  2088.             RadioButton2.Text = "Imola "
  2089.             RadioButton3.Text = "Monaco"
  2090.             RadioButton4.Text = "Suzuka"
  2091.         End If
  2092.     End Sub
  2093.  
  2094.     Sub quintolivello()
  2095.         domandacasuale = Math.Round(Rnd() * 9)
  2096.         lampeggia.Enabled = False
  2097.         esatta.Visible = False
  2098.         contalampeggia = 0
  2099.         errata.Visible = False
  2100.         If domandacasuale = 0 Then
  2101.             domanda.Text = "Quando è nato Dante Alighieri?"
  2102.             RadioButton1.Text = "1283"
  2103.             RadioButton2.Text = "1264"
  2104.             RadioButton3.Text = "1284"
  2105.             RadioButton4.Text = "1265"
  2106.         End If
  2107.         If domandacasuale = 1 Then
  2108.             domanda.Text = "che cos'è la pìsside?"
  2109.             RadioButton1.Text = "un'urna cineraria "
  2110.             RadioButton2.Text = "un vaso di metallo "
  2111.             RadioButton3.Text = "un'uccello"
  2112.             RadioButton4.Text = "un minerale"
  2113.         End If
  2114.         If domandacasuale = 2 Then
  2115.             domanda.Text = "La prima medaglia d'oro italiana alle Olimpiadi di Sydney 2000 è stata conquistata da:"
  2116.             RadioButton1.Text = "Massimiliano Rosolino"
  2117.             RadioButton2.Text = "Domenico Fioravanti "
  2118.             RadioButton3.Text = "Antonio Rossi"
  2119.             RadioButton4.Text = "Valentina Vezzali"
  2120.         End If
  2121.         If domandacasuale = 3 Then
  2122.             domanda.Text = "In quale anno fu' l'esordio della mclaren ?"
  2123.             RadioButton1.Text = "Monaco '50 "
  2124.             RadioButton2.Text = "Argentina '73"
  2125.             RadioButton3.Text = "Monaco '66"
  2126.             RadioButton4.Text = "Italia '81 "
  2127.         End If
  2128.         If domandacasuale = 4 Then
  2129.             domanda.Text = "Chi è noto per aver pronunciato la frase : ''cogito ergo sum''?"
  2130.             RadioButton1.Text = "Voltaire"
  2131.             RadioButton2.Text = "Cartesio"
  2132.             RadioButton3.Text = "Galilei"
  2133.             RadioButton4.Text = "Macchiavelli"
  2134.         End If
  2135.         If domandacasuale = 6 Then
  2136.             domanda.Text = "In che anno l'Italia femm. di sci di fondo ha vinto la 1° med. mondiale ?"
  2137.             RadioButton1.Text = "1993"
  2138.             RadioButton2.Text = "1995"
  2139.             RadioButton3.Text = "1991"
  2140.             RadioButton4.Text = "1992"
  2141.         End If
  2142.         If domandacasuale = 5 Then
  2143.             domanda.Text = "Chi ha vinto il premio ''Fair Play fifa 2001'' ?"
  2144.             RadioButton1.Text = "Buffon"
  2145.             RadioButton2.Text = "Zidane"
  2146.             RadioButton3.Text = "Di Canio"
  2147.             RadioButton4.Text = "Raul"
  2148.         End If
  2149.         If domandacasuale = 7 Then
  2150.             domanda.Text = "Qual'è il nome degli abitanti della Basilicata?"
  2151.             RadioButton1.Text = "Lucani "
  2152.             RadioButton2.Text = "Basilicali"
  2153.             RadioButton3.Text = "Basilichesi"
  2154.             RadioButton4.Text = "Lucansi"
  2155.         End If
  2156.         If domandacasuale = 8 Then
  2157.             domanda.Text = "Dove si trova la località di Waterloo che segno la fine di Napoleone?"
  2158.             RadioButton1.Text = "Belgio"
  2159.             RadioButton2.Text = "Inghilterra "
  2160.             RadioButton3.Text = "Germania"
  2161.             RadioButton4.Text = "Lussemburgo"
  2162.         End If
  2163.         If domandacasuale = 9 Then
  2164.             domanda.Text = "Quali di questi carburanti ha cessato di essere venduto dal Gennaio 2002 ?"
  2165.             RadioButton1.Text = "Gas "
  2166.             RadioButton2.Text = "Benzina Verde"
  2167.             RadioButton3.Text = "Benzina Super"
  2168.             RadioButton4.Text = "Diesel"
  2169.         End If
  2170.     End Sub
  2171.  
  2172.     Sub controllaquintolivello()
  2173.         Select Case domanda.Text
  2174.             Case "Quando è nato Dante Alighieri?"
  2175.                 If RadioButton4.Checked = True Then
  2176.                     lampeggia.Enabled = True
  2177.                 Else
  2178.                     giusta = False
  2179.                     lampeggia.Enabled = True
  2180.                 End If
  2181.             Case "che cos'è la pìsside?"
  2182.                 If RadioButton2.Checked = True Then
  2183.                     giusta = True
  2184.                     lampeggia.Enabled = True
  2185.                 Else
  2186.                     giusta = False
  2187.                     lampeggia.Enabled = True
  2188.                 End If
  2189.             Case "La prima medaglia d'oro italiana alle Olimpiadi di Sydney 2000 è stata conquistata da:"
  2190.                 If RadioButton1.Checked = True Then
  2191.                     giusta = True
  2192.                     lampeggia.Enabled = True
  2193.                 Else
  2194.                     giusta = False
  2195.                     lampeggia.Enabled = True
  2196.                 End If
  2197.             Case "In quale anno fu' l'esordio della mclaren ?"
  2198.                 If RadioButton3.Checked = True Then
  2199.                     giusta = True
  2200.                     lampeggia.Enabled = True
  2201.                 Else
  2202.                     giusta = False
  2203.                     lampeggia.Enabled = True
  2204.                 End If
  2205.             Case "Chi è noto per aver pronunciato la frase : ''cogito ergo sum''?"
  2206.                 If RadioButton2.Checked = True Then
  2207.                     giusta = True
  2208.                     lampeggia.Enabled = True
  2209.                 Else
  2210.                     giusta = False
  2211.                     lampeggia.Enabled = True
  2212.                 End If
  2213.             Case "Dove si trova la località di Waterloo che segno la fine di Napoleone?"
  2214.                 If RadioButton4.Checked = True Then
  2215.                     giusta = True
  2216.                     lampeggia.Enabled = True
  2217.                 Else
  2218.                     giusta = False
  2219.                     lampeggia.Enabled = True
  2220.                 End If
  2221.             Case "In che anno l'Italia femm. di sci di fondo ha vinto la 1° med. mondiale ?"
  2222.                 If RadioButton3.Checked = True Then
  2223.                     giusta = True
  2224.                     lampeggia.Enabled = True
  2225.                 Else
  2226.                     giusta = False
  2227.                     lampeggia.Enabled = True
  2228.                 End If
  2229.             Case "Chi ha vinto il premio ''Fair Play fifa 2001'' ?"
  2230.                 If RadioButton4.Checked = True Then
  2231.                     giusta = True
  2232.                     lampeggia.Enabled = True
  2233.                 Else
  2234.                     giusta = False
  2235.                     lampeggia.Enabled = True
  2236.                 End If
  2237.             Case "Qual'è il nome degli abitanti della Basilicata?"
  2238.                 If RadioButton1.Checked = True Then
  2239.                     giusta = True
  2240.                     lampeggia.Enabled = True
  2241.                 Else
  2242.                     giusta = False
  2243.                     lampeggia.Enabled = True
  2244.                 End If
  2245.             Case "Quali di questi carburanti ha cessato di essere venduto dal Gennaio 2002 ?"
  2246.                 If RadioButton3.Checked = True Then
  2247.                     giusta = True
  2248.                     lampeggia.Enabled = True
  2249.                 Else
  2250.                     giusta = False
  2251.                     lampeggia.Enabled = True
  2252.                 End If
  2253.         End Select
  2254.     End Sub
  2255.  
  2256.     Sub controllalivelloquattro()
  2257.         Select Case domanda.Text
  2258.             Case "Quale elemento differenzia la concorrenza perfetta dal monopolio?"
  2259.                 If RadioButton1.Checked = True Then
  2260.                     lampeggia.Enabled = True
  2261.                 Else
  2262.                     giusta = False
  2263.                     lampeggia.Enabled = True
  2264.                 End If
  2265.             Case "Quanti sono i canti della divina commedia?"
  2266.                 If RadioButton4.Checked = True Then
  2267.                     giusta = True
  2268.                     lampeggia.Enabled = True
  2269.                 Else
  2270.                     giusta = False
  2271.                     lampeggia.Enabled = True
  2272.                 End If
  2273.             Case "Come si chiama il cantante del famoso gruppo grunge-rock dei Nirvana?"
  2274.                 If RadioButton2.Checked = True Then
  2275.                     giusta = True
  2276.                     lampeggia.Enabled = True
  2277.                 Else
  2278.                     giusta = False
  2279.                     lampeggia.Enabled = True
  2280.                 End If
  2281.             Case "Quante sono le regioni Italiane?"
  2282.                 If RadioButton1.Checked = True Then
  2283.                     giusta = True
  2284.                     lampeggia.Enabled = True
  2285.                 Else
  2286.                     giusta = False
  2287.                     lampeggia.Enabled = True
  2288.                 End If
  2289.             Case "Chi è il più grande realizzatore NBA di sempre ?"
  2290.                 If RadioButton4.Checked = True Then
  2291.                     giusta = True
  2292.                     lampeggia.Enabled = True
  2293.                 Else
  2294.                     giusta = False
  2295.                     lampeggia.Enabled = True
  2296.                 End If
  2297.             Case "Come si classificò l' Italia ai mondiali di ''ITALIA '90'' ?"
  2298.                 If RadioButton2.Checked = True Then
  2299.                     giusta = True
  2300.                     lampeggia.Enabled = True
  2301.                 Else
  2302.                     giusta = False
  2303.                     lampeggia.Enabled = True
  2304.                 End If
  2305.             Case "Qual'è il nome del computer del film ''2001: Odissea nello spazio''?"
  2306.                 If RadioButton1.Checked = True Then
  2307.                     giusta = True
  2308.                     lampeggia.Enabled = True
  2309.                 Else
  2310.                     giusta = False
  2311.                     lampeggia.Enabled = True
  2312.                 End If
  2313.             Case "Qual era il nome romano di Eros?"
  2314.                 If RadioButton3.Checked = True Then
  2315.                     giusta = True
  2316.                     lampeggia.Enabled = True
  2317.                 Else
  2318.                     giusta = False
  2319.                     lampeggia.Enabled = True
  2320.                 End If
  2321.             Case "Qual è il vero cognome di Renato Zero?"
  2322.                 If RadioButton4.Checked = True Then
  2323.                     giusta = True
  2324.                     lampeggia.Enabled = True
  2325.                 Else
  2326.                     giusta = False
  2327.                     lampeggia.Enabled = True
  2328.                 End If
  2329.             Case "Il territorio del Salento si trova in"
  2330.                 If RadioButton4.Checked = True Then
  2331.                     giusta = True
  2332.                     lampeggia.Enabled = True
  2333.                 Else
  2334.                     giusta = False
  2335.                     lampeggia.Enabled = True
  2336.                 End If
  2337.         End Select
  2338.     End Sub
  2339.  
  2340.     Sub livelloquattro()
  2341.         domandacasuale = Math.Round(Rnd() * 9)
  2342.         lampeggia.Enabled = False
  2343.         esatta.Visible = False
  2344.         contalampeggia = 0
  2345.         errata.Visible = False
  2346.         If domandacasuale = 0 Then
  2347.             domanda.Text = "Quale elemento differenzia la concorrenza perfetta dal monopolio?"
  2348.             RadioButton1.Text = "Numero di venditori "
  2349.             RadioButton2.Text = "Quantità di merce venduta "
  2350.             RadioButton3.Text = "Qualità della merce "
  2351.             RadioButton4.Text = "Numero di consumatori"
  2352.         End If
  2353.         If domandacasuale = 1 Then
  2354.             domanda.Text = "Quanti sono i canti della divina commedia?"
  2355.             RadioButton1.Text = "33 "
  2356.             RadioButton2.Text = "55 "
  2357.             RadioButton3.Text = "99"
  2358.             RadioButton4.Text = "100"
  2359.         End If
  2360.         If domandacasuale = 2 Then
  2361.             domanda.Text = "Come si chiama il cantante del famoso gruppo grunge-rock dei Nirvana?"
  2362.             RadioButton1.Text = "Jim Morrison"
  2363.             RadioButton2.Text = "Kurt Cobain "
  2364.             RadioButton3.Text = "Axl Rose "
  2365.             RadioButton4.Text = "Chris Novoselic "
  2366.         End If
  2367.         If domandacasuale = 3 Then
  2368.             domanda.Text = "Quante sono le regioni Italiane?"
  2369.             RadioButton1.Text = "20 "
  2370.             RadioButton2.Text = "19"
  2371.             RadioButton3.Text = "21"
  2372.             RadioButton4.Text = "22 "
  2373.         End If
  2374.         If domandacasuale = 4 Then
  2375.             domanda.Text = "Chi è il più grande realizzatore NBA di sempre ?"
  2376.             RadioButton1.Text = "Jordan"
  2377.             RadioButton2.Text = "Davies"
  2378.             RadioButton3.Text = "Pippen"
  2379.             RadioButton4.Text = "Jabbar"
  2380.         End If
  2381.         If domandacasuale = 6 Then
  2382.             domanda.Text = "Come si classificò l' Italia ai mondiali di ''ITALIA '90'' ?"
  2383.             RadioButton1.Text = "2"
  2384.             RadioButton2.Text = "3"
  2385.             RadioButton3.Text = "4"
  2386.             RadioButton4.Text = "5"
  2387.         End If
  2388.         If domandacasuale = 5 Then
  2389.             domanda.Text = "Qual'è il nome del computer del film ''2001: Odissea nello spazio''?"
  2390.             RadioButton1.Text = "Hal"
  2391.             RadioButton2.Text = "A1"
  2392.             RadioButton3.Text = "C1P4"
  2393.             RadioButton4.Text = "Cal"
  2394.         End If
  2395.         If domandacasuale = 7 Then
  2396.             domanda.Text = "Qual era il nome romano di Eros?"
  2397.             RadioButton1.Text = "Marzio "
  2398.             RadioButton2.Text = "Marte"
  2399.             RadioButton3.Text = "Cupido"
  2400.             RadioButton4.Text = "Giove"
  2401.         End If
  2402.         If domandacasuale = 8 Then
  2403.             domanda.Text = "Qual è il vero cognome di Renato Zero?"
  2404.             RadioButton1.Text = "Facinelli"
  2405.             RadioButton2.Text = "Mariotti "
  2406.             RadioButton3.Text = "Mancinelli"
  2407.             RadioButton4.Text = "Fiacchini"
  2408.         End If
  2409.         If domandacasuale = 9 Then
  2410.             domanda.Text = "Il territorio del Salento si trova in"
  2411.             RadioButton1.Text = "Abruzzi "
  2412.             RadioButton2.Text = "Molise"
  2413.             RadioButton3.Text = "Marche"
  2414.             RadioButton4.Text = "Puglia"
  2415.         End If
  2416.     End Sub
  2417.  
  2418.     Sub terzolivello()
  2419.         domandacasuale = Math.Round(Rnd() * 9)
  2420.         lampeggia.Enabled = False
  2421.         esatta.Visible = False
  2422.         contalampeggia = 0
  2423.         errata.Visible = False
  2424.         If domandacasuale = 0 Then
  2425.             domanda.Text = "Quale titolo si deve dare ad un vescovo?"
  2426.             RadioButton1.Text = "Santità "
  2427.             RadioButton2.Text = "Eccellenza "
  2428.             RadioButton3.Text = "Eminenza "
  2429.             RadioButton4.Text = "Sua Signoria"
  2430.         End If
  2431.         If domandacasuale = 1 Then
  2432.             domanda.Text = "Che numero di maglia indossava Alex del piero ai mondiali di Korea '02?"
  2433.             RadioButton1.Text = "11 "
  2434.             RadioButton2.Text = "2 "
  2435.             RadioButton3.Text = "10"
  2436.             RadioButton4.Text = "7"
  2437.         End If
  2438.         If domandacasuale = 2 Then
  2439.             domanda.Text = "Quale di questi Paesi non appartiene ai G8?"
  2440.             RadioButton1.Text = "Svizzera"
  2441.             RadioButton2.Text = "Germania "
  2442.             RadioButton3.Text = "USA "
  2443.             RadioButton4.Text = "Canada  "
  2444.         End If
  2445.         If domandacasuale = 3 Then
  2446.             domanda.Text = "Quale di questi segni ha come simbolo il centauro Chirone?"
  2447.             RadioButton1.Text = "Scorpione "
  2448.             RadioButton2.Text = "Ariete"
  2449.             RadioButton3.Text = "Vergine"
  2450.             RadioButton4.Text = "Sagittario "
  2451.         End If
  2452.         If domandacasuale = 4 Then
  2453.             domanda.Text = "Quante versioni del famoso gioco ''crash bandicoot'' sono state create?"
  2454.             RadioButton1.Text = "12 "
  2455.             RadioButton2.Text = "6"
  2456.             RadioButton3.Text = "3  "
  2457.             RadioButton4.Text = "9 "
  2458.         End If
  2459.         If domandacasuale = 6 Then
  2460.             domanda.Text = "Come si chiama l'ambiente in cui lavorano e vivono i vip?"
  2461.             RadioButton1.Text = "Star camering "
  2462.             RadioButton2.Text = "star monitoring "
  2463.             RadioButton3.Text = "star system "
  2464.             RadioButton4.Text = "star singer"
  2465.         End If
  2466.         If domandacasuale = 5 Then
  2467.             domanda.Text = "Con quale nome è conosciuto il marito della regina Vittoria?"
  2468.             RadioButton1.Text = "Principe Alberto"
  2469.             RadioButton2.Text = "Principe Naseem"
  2470.             RadioButton3.Text = "Principe Vittorio"
  2471.             RadioButton4.Text = "Principe Filippo"
  2472.         End If
  2473.         If domandacasuale = 7 Then
  2474.             domanda.Text = "Chi era l'attore portagonista di ''Cast Away''?"
  2475.             RadioButton1.Text = "Crowe "
  2476.             RadioButton2.Text = "Redford "
  2477.             RadioButton3.Text = "Cruise"
  2478.             RadioButton4.Text = "Hanks  "
  2479.         End If
  2480.         If domandacasuale = 8 Then
  2481.             domanda.Text = "Il paese di Padre Pio, San Giovanni Rotondo, in che regione si trova?"
  2482.             RadioButton1.Text = "Campania"
  2483.             RadioButton2.Text = "Puglia "
  2484.             RadioButton3.Text = "Basilicata"
  2485.             RadioButton4.Text = "Molise"
  2486.         End If
  2487.         If domandacasuale = 9 Then
  2488.             domanda.Text = "Il sole sorge a..."
  2489.             RadioButton1.Text = "Sud "
  2490.             RadioButton2.Text = "Nord"
  2491.             RadioButton3.Text = "Est  "
  2492.             RadioButton4.Text = "Ovest"
  2493.         End If
  2494.     End Sub
  2495.  
  2496.     Sub controllaterzolivello()
  2497.         Select Case domanda.Text
  2498.             Case "Quale titolo si deve dare ad un vescovo?"
  2499.                 If RadioButton2.Checked = True Then
  2500.                     lampeggia.Enabled = True
  2501.                 Else
  2502.                     giusta = False
  2503.                     lampeggia.Enabled = True
  2504.                 End If
  2505.             Case "Che numero di maglia indossava Alex del piero ai mondiali di Korea '02?"
  2506.                 If RadioButton4.Checked = True Then
  2507.                     giusta = True
  2508.                     lampeggia.Enabled = True
  2509.                 Else
  2510.                     giusta = False
  2511.                     lampeggia.Enabled = True
  2512.                 End If
  2513.             Case "Quale di questi Paesi non appartiene ai G8?"
  2514.                 If RadioButton1.Checked = True Then
  2515.                     giusta = True
  2516.                     lampeggia.Enabled = True
  2517.                 Else
  2518.                     giusta = False
  2519.                     lampeggia.Enabled = True
  2520.                 End If
  2521.             Case "Quale di questi segni ha come simbolo il centauro Chirone?"
  2522.                 If RadioButton4.Checked = True Then
  2523.                     giusta = True
  2524.                     lampeggia.Enabled = True
  2525.                 Else
  2526.                     giusta = False
  2527.                     lampeggia.Enabled = True
  2528.                 End If
  2529.             Case "Quante versioni del famoso gioco ''crash bandicoot'' sono state create?"
  2530.                 If RadioButton2.Checked = True Then
  2531.                     giusta = True
  2532.                     lampeggia.Enabled = True
  2533.                 Else
  2534.                     giusta = False
  2535.                     lampeggia.Enabled = True
  2536.                 End If
  2537.             Case "Come si chiama l'ambiente in cui lavorano e vivono i vip?"
  2538.                 If RadioButton3.Checked = True Then
  2539.                     giusta = True
  2540.                     lampeggia.Enabled = True
  2541.                 Else
  2542.                     giusta = False
  2543.                     lampeggia.Enabled = True
  2544.                 End If
  2545.             Case "Con quale nome è conosciuto il marito della regina Vittoria?"
  2546.                 If RadioButton1.Checked = True Then
  2547.                     giusta = True
  2548.                     lampeggia.Enabled = True
  2549.                 Else
  2550.                     giusta = False
  2551.                     lampeggia.Enabled = True
  2552.                 End If
  2553.             Case "Chi era l'attore portagonista di ''Cast Away''?"
  2554.                 If RadioButton4.Checked = True Then
  2555.                     giusta = True
  2556.                     lampeggia.Enabled = True
  2557.                 Else
  2558.                     giusta = False
  2559.                     lampeggia.Enabled = True
  2560.                 End If
  2561.             Case "Il paese di Padre Pio, San Giovanni Rotondo, in che regione si trova?"
  2562.                 If RadioButton2.Checked = True Then
  2563.                     giusta = True
  2564.                     lampeggia.Enabled = True
  2565.                 Else
  2566.                     giusta = False
  2567.                     lampeggia.Enabled = True
  2568.                 End If
  2569.             Case "Il sole sorge a..."
  2570.                 If RadioButton3.Checked = True Then
  2571.                     giusta = True
  2572.                     lampeggia.Enabled = True
  2573.                 Else
  2574.                     giusta = False
  2575.                     lampeggia.Enabled = True
  2576.                 End If
  2577.         End Select
  2578.     End Sub
  2579.  
  2580.     Sub controllasecondolivello()
  2581.         Select Case domanda.Text
  2582.             Case "Chr significa.. "
  2583.                 If RadioButton1.Checked = True Then
  2584.                     lampeggia.Enabled = True
  2585.                 Else
  2586.                     giusta = False
  2587.                     lampeggia.Enabled = True
  2588.                 End If
  2589.             Case "come si chiama la famosa modella australiana Gale?"
  2590.                 If RadioButton3.Checked = True Then
  2591.                     giusta = True
  2592.                     lampeggia.Enabled = True
  2593.                 Else
  2594.                     giusta = False
  2595.                     lampeggia.Enabled = True
  2596.                 End If
  2597.             Case "Quale città marinara era governata dal Doge?"
  2598.                 If RadioButton2.Checked = True Then
  2599.                     giusta = True
  2600.                     lampeggia.Enabled = True
  2601.                 Else
  2602.                     giusta = False
  2603.                     lampeggia.Enabled = True
  2604.                 End If
  2605.             Case "la doppiatrice di Arale ha anche doppiato il personaggio principale di un'altro cartone,quale e chi?"
  2606.                 If RadioButton1.Checked = True Then
  2607.                     giusta = True
  2608.                     lampeggia.Enabled = True
  2609.                 Else
  2610.                     giusta = False
  2611.                     lampeggia.Enabled = True
  2612.                 End If
  2613.             Case "come si chiama il granchio amico di Ariel? (la sirenetta)"
  2614.                 If RadioButton4.Checked = True Then
  2615.                     giusta = True
  2616.                     lampeggia.Enabled = True
  2617.                 Else
  2618.                     giusta = False
  2619.                     lampeggia.Enabled = True
  2620.                 End If
  2621.             Case "Chi disse La religione è l'oppio dei popoli?"
  2622.                 If RadioButton3.Checked = True Then
  2623.                     giusta = True
  2624.                     lampeggia.Enabled = True
  2625.                 Else
  2626.                     giusta = False
  2627.                     lampeggia.Enabled = True
  2628.                 End If
  2629.             Case "Quale sono le squadre che nel 1964 spareggiarono per il scudetto"
  2630.                 If RadioButton1.Checked = True Then
  2631.                     giusta = True
  2632.                     lampeggia.Enabled = True
  2633.                 Else
  2634.                     giusta = False
  2635.                     lampeggia.Enabled = True
  2636.                 End If
  2637.             Case "Quali di queste coppie di attori NON ha mai lavorato insieme ?"
  2638.                 If RadioButton4.Checked = True Then
  2639.                     giusta = True
  2640.                     lampeggia.Enabled = True
  2641.                 Else
  2642.                     giusta = False
  2643.                     lampeggia.Enabled = True
  2644.                 End If
  2645.             Case "Quanti film sono stati girati nella saga di Indiana Jones ?"
  2646.                 If RadioButton3.Checked = True Then
  2647.                     giusta = True
  2648.                     lampeggia.Enabled = True
  2649.                 Else
  2650.                     giusta = False
  2651.                     lampeggia.Enabled = True
  2652.                 End If
  2653.             Case "Come si chiamano le cascate formate dal fiume Zambesi?"
  2654.                 If RadioButton3.Checked = True Then
  2655.                     giusta = True
  2656.                     lampeggia.Enabled = True
  2657.                 Else
  2658.                     giusta = False
  2659.                     lampeggia.Enabled = True
  2660.                 End If
  2661.         End Select
  2662.     End Sub
  2663.  
  2664.     Sub primolivello()
  2665.         domandacasuale = Math.Round(Rnd() * 9)
  2666.         lampeggia.Enabled = False
  2667.         Select Case domanda.Text
  2668.             Case "Come si dice in Spagnolo lepre?"
  2669.                 If RadioButton3.Checked = True Then
  2670.                     giusta = True
  2671.                     lampeggia.Enabled = True
  2672.                 Else
  2673.                     giusta = False
  2674.                     lampeggia.Enabled = True
  2675.                 End If
  2676.             Case "come si chiama il gruppo dove cantava il celebre cantante-poeta Jim Morrison?"
  2677.                 If RadioButton4.Checked = True Then
  2678.                     giusta = True
  2679.                     lampeggia.Enabled = True
  2680.                 Else
  2681.                     giusta = False
  2682.                     lampeggia.Enabled = True
  2683.                 End If
  2684.             Case "Dove ha sede la casa editrice De Agostini?"
  2685.                 If RadioButton2.Checked = True Then
  2686.                     giusta = True
  2687.                     lampeggia.Enabled = True
  2688.                 Else
  2689.                     giusta = False
  2690.                     lampeggia.Enabled = True
  2691.                 End If
  2692.             Case "Cosa sono i Pirenei?"
  2693.                 If RadioButton1.Checked = True Then
  2694.                     giusta = True
  2695.                     lampeggia.Enabled = True
  2696.                 Else
  2697.                     giusta = False
  2698.                     lampeggia.Enabled = True
  2699.                 End If
  2700.             Case "come si chiama la palestra dove viene allenato Ken Shiro?"
  2701.                 If RadioButton3.Checked = True Then
  2702.                     giusta = True
  2703.                     lampeggia.Enabled = True
  2704.                 Else
  2705.                     giusta = False
  2706.                     lampeggia.Enabled = True
  2707.                 End If
  2708.             Case "Un nuovo propellente per autotrazione completamente ecologico  potrebbe essere impiegato nei prossimi anni. Si tratta di:"
  2709.                 If RadioButton1.Checked = True Then
  2710.                     giusta = True
  2711.                     lampeggia.Enabled = True
  2712.                 Else
  2713.                     giusta = False
  2714.                     lampeggia.Enabled = True
  2715.                 End If
  2716.             Case "La sigla Windows ''XP'' significa..."
  2717.                 If RadioButton1.Checked = True Then
  2718.                     giusta = True
  2719.                     lampeggia.Enabled = True
  2720.                 Else
  2721.                     giusta = False
  2722.                     lampeggia.Enabled = True
  2723.                 End If
  2724.             Case "Come si traduce ''Dito''?:"
  2725.                 If RadioButton4.Checked = True Then
  2726.                     giusta = True
  2727.                     lampeggia.Enabled = True
  2728.                 Else
  2729.                     giusta = False
  2730.                     lampeggia.Enabled = True
  2731.                 End If
  2732.             Case "Se un inglese vi chiede una ''camera'' cosa dovete dargli?"
  2733.                 If RadioButton2.Checked = True Then
  2734.                     giusta = True
  2735.                     lampeggia.Enabled = True
  2736.                 Else
  2737.                     giusta = False
  2738.                     lampeggia.Enabled = True
  2739.                 End If
  2740.             Case "In quale squadra non ha mai giocato Vieri ?"
  2741.                 If RadioButton3.Checked = True Then
  2742.                     giusta = True
  2743.                     lampeggia.Enabled = True
  2744.                 Else
  2745.                     giusta = False
  2746.                     lampeggia.Enabled = True
  2747.                 End If
  2748.         End Select
  2749.     End Sub
  2750.  
  2751.     Sub secondolivello()
  2752.         domandacasuale = Math.Round(Rnd() * 9)
  2753.         lampeggia.Enabled = False
  2754.         esatta.Visible = False
  2755.         contalampeggia = 0
  2756.         errata.Visible = False
  2757.         If domandacasuale = 0 Then
  2758.             domanda.Text = "Chr significa.. "
  2759.             RadioButton1.Text = "Carattere "
  2760.             RadioButton2.Text = "Esadecimale "
  2761.             RadioButton3.Text = "Legenda "
  2762.             RadioButton4.Text = "È una formula chimica"
  2763.         End If
  2764.         If domandacasuale = 1 Then
  2765.             domanda.Text = "come si chiama la famosa modella australiana Gale?"
  2766.             RadioButton1.Text = "Meganes "
  2767.             RadioButton2.Text = "Mina "
  2768.             RadioButton3.Text = "Megan"
  2769.             RadioButton4.Text = "Megane"
  2770.         End If
  2771.         If domandacasuale = 2 Then
  2772.             domanda.Text = "Quale città marinara era governata dal Doge?"
  2773.             RadioButton1.Text = "Amalfi"
  2774.             RadioButton2.Text = "Venezia "
  2775.             RadioButton3.Text = "Mantova "
  2776.             RadioButton4.Text = "Pisa  "
  2777.         End If
  2778.         If domandacasuale = 3 Then
  2779.             domanda.Text = "la doppiatrice di Arale ha anche doppiato il personaggio principale di un'altro cartone,quale e chi?"
  2780.             RadioButton1.Text = "dragonball-goku "
  2781.             RadioButton2.Text = "dragonball z-goku "
  2782.             RadioButton3.Text = "ken shiro-ken"
  2783.             RadioButton4.Text = "simpsons-lisa "
  2784.         End If
  2785.         If domandacasuale = 4 Then
  2786.             domanda.Text = "Come si chiamano le cascate formate dal fiume Zambesi?"
  2787.             RadioButton1.Text = "Niagara "
  2788.             RadioButton2.Text = "Elena"
  2789.             RadioButton3.Text = "Vittoria  "
  2790.             RadioButton4.Text = "Elisabetta "
  2791.         End If
  2792.         If domandacasuale = 6 Then
  2793.             domanda.Text = "come si chiama il granchio amico di Ariel? (la sirenetta)"
  2794.             RadioButton1.Text = "granchiolino "
  2795.             RadioButton2.Text = "billy "
  2796.             RadioButton3.Text = "tritone "
  2797.             RadioButton4.Text = "sebastian"
  2798.         End If
  2799.         If domandacasuale = 5 Then
  2800.             domanda.Text = "Chi disse La religione è l'oppio dei popoli?"
  2801.             RadioButton1.Text = "Comte"
  2802.             RadioButton2.Text = "Durkheim"
  2803.             RadioButton3.Text = "Marx"
  2804.             RadioButton4.Text = "Weber"
  2805.         End If
  2806.         If domandacasuale = 7 Then
  2807.             domanda.Text = "Quale sono le squadre che nel 1964 spareggiarono per il scudetto"
  2808.             RadioButton1.Text = "bologna-inter "
  2809.             RadioButton2.Text = "milan-juve "
  2810.             RadioButton3.Text = "cagliari-inter"
  2811.             RadioButton4.Text = "milan-fiorentina  "
  2812.         End If
  2813.         If domandacasuale = 8 Then
  2814.             domanda.Text = "Quali di queste coppie di attori NON ha mai lavorato insieme ?"
  2815.             RadioButton1.Text = "Alberto Sordi e Monica Vitti"
  2816.             RadioButton2.Text = "Totò e Alberto Sordi "
  2817.             RadioButton3.Text = "F. Franchi e C. Ingrassia"
  2818.             RadioButton4.Text = "Totò e Jonny Dorelli"
  2819.         End If
  2820.         If domandacasuale = 9 Then
  2821.             domanda.Text = "Quanti film sono stati girati nella saga di Indiana Jones ?"
  2822.             RadioButton1.Text = "1 "
  2823.             RadioButton2.Text = "2 "
  2824.             RadioButton3.Text = "3 "
  2825.             RadioButton4.Text = "4"
  2826.         End If
  2827.     End Sub
  2828.  
  2829.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2830.         End
  2831.     End Sub
  2832.  
  2833.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles conta.Tick
  2834.         If ora.Text = 0 Then
  2835.             Button1.PerformClick()
  2836.         Else
  2837.             ora.Text = Val(ora.Text) - 1
  2838.         End If
  2839.         Me.Text = "QuizV3 By GoLDBeRG               " & (TimeOfDay)
  2840.     End Sub
  2841.  
  2842.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2843.         Button1.Enabled = False
  2844.         ora.Text = 60
  2845.         contalivello = contalivello + 1
  2846.         If contalivello = 1 Then primolivello()
  2847.         If contalivello = 2 Then controllasecondolivello()
  2848.         If contalivello = 3 Then controllaterzolivello()
  2849.         If contalivello = 4 Then controllalivelloquattro()
  2850.         If contalivello = 5 Then controllaquintolivello()
  2851.         If contalivello = 6 Then controllasestolivello()
  2852.         If contalivello = 7 Then controllasettimolivello()
  2853.         If contalivello = 8 Then controllaottavolivello()
  2854.         If contalivello = 9 Then controllanonolivello()
  2855.         If contalivello = 10 Then controlladecimolivello()
  2856.         If contalivello = 11 Then controllaundicesimolivello()
  2857.         If contalivello = 12 Then controlladodicesimolivello()
  2858.         If contalivello = 13 Then controllatredicesimolivello()
  2859.         If contalivello = 14 Then controllaquattordicesimolivello()
  2860.         If contalivello = 15 Then controllaquindicesimolivello()
  2861.         Exit Sub
  2862.     End Sub
  2863.  
  2864.     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  2865.         Process.Start(LinkLabel1.Text)
  2866.     End Sub
  2867.  
  2868.     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
  2869.         Process.Start(LinkLabel2.Text)
  2870.     End Sub
  2871.  
  2872.     Private Sub lampeggia_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lampeggia.Tick
  2873.         RadioButton1.Checked = False
  2874.         RadioButton2.Checked = False
  2875.         RadioButton3.Checked = False
  2876.         RadioButton4.Checked = False
  2877.         contalampeggia = contalampeggia + 1
  2878.         If giusta = True Then
  2879.             If contalampeggia = 30 Then
  2880.                 Button1.Enabled = True
  2881.                 If contalivello = 1 Then
  2882.                     CheckBox2.Checked = True
  2883.                     secondolivello()
  2884.                 End If
  2885.                 If contalivello = 2 Then
  2886.                     CheckBox3.Checked = True
  2887.                     terzolivello()
  2888.                 End If
  2889.                 If contalivello = 3 Then
  2890.                     CheckBox4.Checked = True
  2891.                     livelloquattro()
  2892.                 End If
  2893.                 If contalivello = 4 Then
  2894.                     CheckBox5.Checked = True
  2895.                     quintolivello()
  2896.                 End If
  2897.                 If contalivello = 5 Then
  2898.                     CheckBox6.Checked = True
  2899.                     sestolivello()
  2900.                 End If
  2901.                 If contalivello = 6 Then
  2902.                     CheckBox7.Checked = True
  2903.                     settimolivello()
  2904.                 End If
  2905.                 If contalivello = 7 Then
  2906.                     CheckBox8.Checked = True
  2907.                     ottavolivello()
  2908.                 End If
  2909.                 If contalivello = 8 Then
  2910.                     CheckBox9.Checked = True
  2911.                     nonolivello()
  2912.                 End If
  2913.                 If contalivello = 9 Then
  2914.                     CheckBox10.Checked = True
  2915.                     decimolivello()
  2916.                 End If
  2917.                 If contalivello = 10 Then
  2918.                     CheckBox11.Checked = True
  2919.                     undicesimolivello()
  2920.                 End If
  2921.                 If contalivello = 11 Then
  2922.                     CheckBox12.Checked = True
  2923.                     dodicesimolivello()
  2924.                 End If
  2925.                 If contalivello = 12 Then
  2926.                     CheckBox13.Checked = True
  2927.                     tredicesimolivello()
  2928.                 End If
  2929.                 If contalivello = 13 Then
  2930.                     CheckBox14.Checked = True
  2931.                     quattordicesimolivello()
  2932.                 End If
  2933.                 If contalivello = 14 Then
  2934.                     CheckBox15.Checked = True
  2935.                     quindicesimolivello()
  2936.                 End If
  2937.                 If contalivello = 15 Then
  2938.                     MsgBox("Minkia!!!! Hai risposto esattamente a tutte le mie domande!..... solo fortuna -.-", MsgBoxStyle.Exclamation)
  2939.                     End
  2940.                 End If
  2941.             Else
  2942.                 Select Case esatta.Visible
  2943.                     Case False
  2944.                         esatta.Visible = True
  2945.                     Case True
  2946.                         esatta.Visible = False
  2947.                 End Select
  2948.             End If
  2949.         Else
  2950.             If contalampeggia = 30 Then
  2951.                 Dim conferma As New conferma
  2952.                 conferma.ShowDialog()
  2953.             Else
  2954.                 Select Case errata.Visible
  2955.                     Case False
  2956.                         errata.Visible = True
  2957.                     Case True
  2958.                         errata.Visible = False
  2959.                 End Select
  2960.             End If
  2961.         End If
  2962.     End Sub
  2963.  
  2964.     Private Sub casuale_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles casuale.Tick
  2965.         domandacasuale = Math.Round(Rnd() * 9)
  2966.     End Sub
  2967.  
  2968.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  2969.         conta.Enabled = True
  2970.         Button4.Enabled = False
  2971.         Button1.Enabled = True
  2972.         If domandacasuale = 0 Then
  2973.             domanda.Text = "Come si dice in Spagnolo lepre?"
  2974.             RadioButton1.Text = "lima "
  2975.             RadioButton2.Text = "riña "
  2976.             RadioButton3.Text = "Liebre "
  2977.             RadioButton4.Text = "peca"
  2978.         End If
  2979.         If domandacasuale = 1 Then
  2980.             domanda.Text = "come si chiama il gruppo dove cantava il celebre cantante-poeta Jim Morrison?"
  2981.             RadioButton1.Text = "Cors "
  2982.             RadioButton2.Text = "Dors "
  2983.             RadioButton3.Text = "Coors"
  2984.             RadioButton4.Text = "Doors "
  2985.         End If
  2986.         If domandacasuale = 2 Then
  2987.             domanda.Text = "Dove ha sede la casa editrice De Agostini?"
  2988.             RadioButton1.Text = "Torino"
  2989.             RadioButton2.Text = "Novara "
  2990.             RadioButton3.Text = "Mantova "
  2991.             RadioButton4.Text = "Vercelli  "
  2992.         End If
  2993.         If domandacasuale = 3 Then
  2994.             domanda.Text = "Cosa sono i Pirenei?"
  2995.             RadioButton1.Text = "Monti della penisola Iberica "
  2996.             RadioButton2.Text = "Un popolo mediorientale "
  2997.             RadioButton3.Text = "Una famiglia di invertebrati"
  2998.             RadioButton4.Text = "Dolcetti siciliani "
  2999.         End If
  3000.         If domandacasuale = 4 Then
  3001.             domanda.Text = "come si chiama la palestra dove viene allenato Ken Shiro?"
  3002.             RadioButton1.Text = "orsa maggiore "
  3003.             RadioButton2.Text = "orsa minore"
  3004.             RadioButton3.Text = "hokuto  "
  3005.             RadioButton4.Text = "sette stelle "
  3006.         End If
  3007.         If domandacasuale = 6 Then
  3008.             domanda.Text = "La sigla Windows ''XP'' significa..."
  3009.             RadioButton1.Text = "Experience "
  3010.             RadioButton2.Text = "Exported "
  3011.             RadioButton3.Text = "Expected "
  3012.             RadioButton4.Text = "Extra Personal"
  3013.         End If
  3014.         If domandacasuale = 5 Then
  3015.             domanda.Text = "Un nuovo propellente per autotrazione completamente ecologico  potrebbe essere impiegato nei prossimi anni. Si tratta di:"
  3016.             RadioButton1.Text = "Idrogeno"
  3017.             RadioButton2.Text = "Elio"
  3018.             RadioButton3.Text = "Metano"
  3019.             RadioButton4.Text = "Propano"
  3020.         End If
  3021.         If domandacasuale = 7 Then
  3022.             domanda.Text = "Come si traduce ''Dito''?:"
  3023.             RadioButton1.Text = "Hand "
  3024.             RadioButton2.Text = "Toe "
  3025.             RadioButton3.Text = "Ginger"
  3026.             RadioButton4.Text = "Finger  "
  3027.         End If
  3028.         If domandacasuale = 8 Then
  3029.             domanda.Text = "Se un inglese vi chiede una ''camera'' cosa dovete dargli?"
  3030.             RadioButton1.Text = "Una stanza"
  3031.             RadioButton2.Text = "Una macchina fotografica "
  3032.             RadioButton3.Text = "Un'automobile"
  3033.             RadioButton4.Text = "Un calcio"
  3034.         End If
  3035.         If domandacasuale = 9 Then
  3036.             domanda.Text = "In quale squadra non ha mai giocato Vieri ?"
  3037.             RadioButton1.Text = "Milan "
  3038.             RadioButton2.Text = "Juventus "
  3039.             RadioButton3.Text = "Real Madrid "
  3040.             RadioButton4.Text = "Lazio"
  3041.         End If
  3042.     End Sub
  3043.  
  3044.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  3045.         CheckBox1.Enabled = True
  3046.         CheckBox2.Enabled = True
  3047.         CheckBox3.Enabled = True
  3048.         CheckBox4.Enabled = True
  3049.         CheckBox5.Enabled = True
  3050.         CheckBox6.Enabled = True
  3051.         CheckBox7.Enabled = True
  3052.         CheckBox8.Enabled = True
  3053.         CheckBox9.Enabled = True
  3054.         CheckBox10.Enabled = True
  3055.         CheckBox11.Enabled = True
  3056.         CheckBox12.Enabled = True
  3057.         CheckBox13.Enabled = True
  3058.         CheckBox14.Enabled = True
  3059.         CheckBox15.Enabled = True
  3060.     End Sub
  3061.  
  3062.     Private Sub CheckBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox1.MouseMove
  3063.         CheckBox1.Enabled = False
  3064.     End Sub
  3065.  
  3066.     Private Sub CheckBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox2.MouseMove
  3067.         CheckBox2.Enabled = False
  3068.     End Sub
  3069.  
  3070.     Private Sub CheckBox3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox3.MouseMove
  3071.         CheckBox3.Enabled = False
  3072.     End Sub
  3073.  
  3074.     Private Sub CheckBox4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox4.MouseMove
  3075.         CheckBox4.Enabled = False
  3076.     End Sub
  3077.  
  3078.     Private Sub CheckBox5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox5.MouseMove
  3079.         CheckBox5.Enabled = False
  3080.     End Sub
  3081.  
  3082.     Private Sub CheckBox6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox6.MouseMove
  3083.         CheckBox6.Enabled = False
  3084.     End Sub
  3085.  
  3086.     Private Sub CheckBox7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox7.MouseMove
  3087.         CheckBox7.Enabled = False
  3088.     End Sub
  3089.  
  3090.     Private Sub CheckBox8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox8.MouseMove
  3091.         CheckBox8.Enabled = False
  3092.     End Sub
  3093.  
  3094.     Private Sub CheckBox9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox9.MouseMove
  3095.         CheckBox9.Enabled = False
  3096.     End Sub
  3097.  
  3098.     Private Sub CheckBox10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox10.MouseMove
  3099.         CheckBox10.Enabled = False
  3100.     End Sub
  3101.  
  3102.     Private Sub CheckBox11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox11.MouseMove
  3103.         CheckBox11.Enabled = False
  3104.     End Sub
  3105.  
  3106.     Private Sub CheckBox12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox12.MouseMove
  3107.         CheckBox12.Enabled = False
  3108.     End Sub
  3109.  
  3110.     Private Sub CheckBox13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox13.MouseMove
  3111.         CheckBox13.Enabled = False
  3112.     End Sub
  3113.  
  3114.     Private Sub CheckBox14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox14.MouseMove
  3115.         CheckBox14.Enabled = False
  3116.     End Sub
  3117.  
  3118.     Private Sub CheckBox15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox15.MouseMove
  3119.         CheckBox15.Enabled = False
  3120.     End Sub
  3121.  
  3122.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3123.         Randomize()
  3124.     End Sub
  3125. End Class
  3126.  
  3127. Public Class Main
  3128.     Shared Sub Main()
  3129.         Application.EnableVisualStyles()
  3130.         Application.Run(New Form1)
  3131.     End Sub
  3132. End Class