Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Chat biutente (Client) - frmbenvenuti.frm

frmbenvenuti.frm

 Caricato da: Roberto VB
Scarica il programma completo

  1. Option Explicit
  2. Dim iConta As Integer
  3. Private Sub Form_Load()
  4.     iConta = 2
  5. End Sub
  6.  
  7.  
  8.  
  9. Private Sub Timer1_Timer()
  10.     iConta = iConta - 1
  11.     If iConta <= 0 Then
  12.         Timer1.Enabled = False
  13.         Timer2.Enabled = False
  14.         frmBenvenuti.Hide
  15.         frmLogin.Show 1
  16.         frmClient.Show
  17.        
  18.     End If
  19. End Sub
  20.  
  21. Private Sub Timer2_Timer()
  22.     lblCaricamento.Width = lblCaricamento.Width + 240
  23. End Sub