Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Timer1 As New System.Timers.Timer(5000) Dim principale As New Form1 principale.Show() Timer1.Enabled = False Dim splash As New Form1 splash.Hide() End Sub Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question