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