Ho fatto tutto, potreste, cortesemente, controllare se va bene?

Public Class os

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub os_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Select Case Environment.OSVersion.Platform
End Select


End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub avvio_controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avvio_controllo.Click


controllo.Text = ("Avvio controllo sui file")
Timer1.Enabled = True
lb.Text = ("controllo")

End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar1.Click
Bar1.Minimum = 1
Bar1.Maximum = 100
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Bar1.Value < 100 Then
Bar1.Value += 1
ElseIf Bar1.Value = Bar1.Maximum Then
Timer1.Stop()
controllo.Text = ("Controllo terminato")
MsgBox("Controllo terminato")
'Qui esegue il controllo attraverso la tabelle di microsoft che specifica le major relase'
If Environment.OSVersion.Version.Major > 5 Then
lb.Text = ("Il sistema è supportato")
Else
lb.Text = ("Siamo spiacenti, il software non è utilizzabile su questo computer")
End If

End If
End Sub

Private Sub avviso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles controllo.Click

End Sub
End Class