Parabola - frmBenvenuto.frm


	Option Explicit Dim iConta As Integer Private Sub Form_Load() iConta = 2 End Sub Private Sub Timer1_Timer() iConta = iConta - 1 If iConta <= 0 Then Timer1.Enabled = False Timer2.Enabled = False frmBenvenuto.Hide frmParabola.Show End If End Sub Private Sub Timer2_Timer() lblCaricamento.Width = lblCaricamento.Width + 240 End Sub