Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Bar.Increment(1)
If Bar.Value = 2 Then
PictureBox1.Visible = True
End If
If Bar.Value = 4 Then
PictureBox2.Visible = True
End If
If Bar.Value = 6 Then
PictureBox3.Visible = True
End If
If Bar.Value = 8 Then
PictureBox4.Visible = True
End If
If Bar.Value = 10 Then
PictureBox5.Visible = True
End If
If Bar.Value = 12 Then
PictureBox6.Visible = True
End If
If Bar.Value = 14 Then
PictureBox7.Visible = True
End If
If Bar.Value = 16 Then
PictureBox8.Visible = True
End If
If Bar.Value = 18 Then
PictureBox9.Visible = True
End If
If Bar.Value = 20 Then
PictureBox10.Visible = True
End If
If Bar.Value = 22 Then
PictureBox11.Visible = True
End If
If Bar.Value = 24 Then
PictureBox12.Visible = True
End If
If Bar.Value = 26 Then
PictureBox13.Visible = True
End If
If Bar.Value = 28 Then
PictureBox14.Visible = True
End If
If Bar.Value = 30 Then
PictureBox15.Visible = True
End If
If Bar.Value = 32 Then
PictureBox16.Visible = True
End If
If Bar.Value = 34 Then
PictureBox17.Visible = True
End If
If Bar.Value = 36 Then
PictureBox18.Visible = True
End If
If Bar.Value = 38 Then
PictureBox19.Visible = True
End If
If Bar.Value = 40 Then
PictureBox20.Visible = True
End If
If Bar.Value = 42 Then
PictureBox21.Visible = True
End If
If Bar.Value = 44 Then
PictureBox22.Visible = True
End If
If Bar.Value = 46 Then
PictureBox23.Visible = True
End If
If Bar.Value = 48 Then
PictureBox24.Visible = True
End If
If Bar.Value = 50 Then
PictureBox25.Visible = True
End If
If Bar.Value = 52 Then
PictureBox26.Visible = True
End If
If Bar.Value = 54 Then
PictureBox27.Visible = True
End If
If Bar.Value = 56 Then
PictureBox28.Visible = True
End If
If Bar.Value = 58 Then
PictureBox29.Visible = True
End If
If Bar.Value = 60 Then
PictureBox30.Visible = True
End If
If Bar.Value = 62 Then
PictureBox31.Visible = True
End If
If Bar.Value = 64 Then
PictureBox32.Visible = True
End If
If Bar.Value = 66 Then
PictureBox33.Visible = True
End If
If Bar.Value = 68 Then
PictureBox34.Visible = True
End If
If Bar.Value = 70 Then
PictureBox35.Visible = True
End If
If Bar.Value = 72 Then
PictureBox36.Visible = True
End If
If Bar.Value = 74 Then
PictureBox37.Visible = True
End If
If Bar.Value = 76 Then
PictureBox38.Visible = True
End If
If Bar.Value = 78 Then
PictureBox39.Visible = True
End If
If Bar.Value = 80 Then
PictureBox40.Visible = True
End If
If Bar.Value = 82 Then
PictureBox41.Visible = True
End If
If Bar.Value = 84 Then
PictureBox42.Visible = True
End If
If Bar.Value = 86 Then
PictureBox43.Visible = True
End If
If Bar.Value = 88 Then
PictureBox44.Visible = True
End If
If Bar.Value = 90 Then
PictureBox45.Visible = True
End If
If Bar.Value = 92 Then
PictureBox46.Visible = True
End If
If Bar.Value = 94 Then
PictureBox47.Visible = True
End If
If Bar.Value = 96 Then
PictureBox48.Visible = True
End If
If Bar.Value = 98 Then
PictureBox49.Visible = True
End If
If Bar.Value = 100 Then
PictureBox50.Visible = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = False
PictureBox8.Visible = False
PictureBox9.Visible = False
PictureBox10.Visible = False
PictureBox11.Visible = False
PictureBox12.Visible = False
PictureBox13.Visible = False
PictureBox14.Visible = False
PictureBox15.Visible = False
PictureBox16.Visible = False
PictureBox17.Visible = False
PictureBox18.Visible = False
PictureBox19.Visible = False
PictureBox20.Visible = False
PictureBox21.Visible = False
PictureBox22.Visible = False
PictureBox23.Visible = False
PictureBox24.Visible = False
PictureBox25.Visible = False
PictureBox26.Visible = False
PictureBox27.Visible = False
PictureBox28.Visible = False
PictureBox29.Visible = False
PictureBox30.Visible = False
PictureBox31.Visible = False
PictureBox32.Visible = False
PictureBox33.Visible = False
PictureBox34.Visible = False
PictureBox35.Visible = False
PictureBox36.Visible = False
PictureBox37.Visible = False
PictureBox38.Visible = False
PictureBox39.Visible = False
PictureBox40.Visible = False
PictureBox41.Visible = False
PictureBox42.Visible = False
PictureBox43.Visible = False
PictureBox44.Visible = False
PictureBox45.Visible = False
PictureBox46.Visible = False
PictureBox47.Visible = False
PictureBox48.Visible = False
PictureBox49.Visible = False
PictureBox50.Visible = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
PictureBox51.Enabled = False
PictureBox52.Enabled = False
Button5.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reteDisponibile As Boolean
reteDisponibile = My.Computer.Network.IsAvailable
If reteDisponibile = True Then
MsgBox("La rete è disponibile")
Else
MsgBox("La rete NON è disponibile")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
MsgBox("Valore delle ProgressBar: " & Bar.Value & " % ")
Timer1.Start()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Stop()
Form2.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Start()
Button4.Visible = False
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
PictureBox51.Enabled = True
PictureBox52.Enabled = True
Button5.Enabled = True
End Sub
Private Sub PictureBox51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox51.Click
Timer1.Stop()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Stop()
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = False
PictureBox8.Visible = False
PictureBox9.Visible = False
PictureBox10.Visible = False
PictureBox11.Visible = False
PictureBox12.Visible = False
PictureBox13.Visible = False
PictureBox14.Visible = False
PictureBox15.Visible = False
PictureBox16.Visible = False
PictureBox17.Visible = False
PictureBox18.Visible = False
PictureBox19.Visible = False
PictureBox20.Visible = False
PictureBox21.Visible = False
PictureBox22.Visible = False
PictureBox23.Visible = False
PictureBox24.Visible = False
PictureBox25.Visible = False
PictureBox26.Visible = False
PictureBox27.Visible = False
PictureBox28.Visible = False
PictureBox29.Visible = False
PictureBox30.Visible = False
PictureBox31.Visible = False
PictureBox32.Visible = False
PictureBox33.Visible = False
PictureBox34.Visible = False
PictureBox35.Visible = False
PictureBox36.Visible = False
PictureBox37.Visible = False
PictureBox38.Visible = False
PictureBox39.Visible = False
PictureBox40.Visible = False
PictureBox41.Visible = False
PictureBox42.Visible = False
PictureBox43.Visible = False
PictureBox44.Visible = False
PictureBox45.Visible = False
PictureBox46.Visible = False
PictureBox47.Visible = False
PictureBox48.Visible = False
PictureBox49.Visible = False
PictureBox50.Visible = False
Bar.Value = 0
End Sub
Private Sub PictureBox52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox52.Click
Timer1.Start()
End Sub
Private Sub Bar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar.Click
End Sub
End Class