TELA DE SPLASH

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If My.Computer.Info.OSFullName.ToString.Contains([Ô]XP[Ô]) Then
            Application.DoEvents()
            ProgressBar1.Increment(1)
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                Me.Hide()
                Form2.Show()
            End If
        Else
            Valor += 1
            ProgressBar1.Step = Valor
            ProgressBar1.PerformStep()
            ProgressBar1.Value = Valor
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                Me.Hide()
                Form2.Show()
                Valor = 0
            End If
        End If
    End Sub

Citação:

:
Funcionou perfeitamente como gostaria que ficasse no windows 7, + agora ficou com problema no XP

Não teria um forma defuncionar em ambos SO sem problema.....( W7) ou ( WXP)

Mais muito obrigado a todos do forum


Alguem poderia me gostaria de saber qual o aplicativo q o TECLA fez o GIF pra mostrar q estava funcionando