RE:Formulario de presentación
Rodrigo:
Colocás como objeto de inicio al formulario de presentación y le colocás un temporizador. Colocá un ProgressBar en el formulario de presentación y un Timer. Luego colocá este cógigo:
Private Sub Form_Load()
With ProgressBar1
.Min = 0
.Max = 25
End With
With Timer1
.Interval = 500
.Enabled = True
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load frmPassword
Load frmMain
frmPassword.Visible = True
DoEvents
End Sub
Private Sub Timer1_Timer()
Static i As Long
With ProgressBar1
If .Value = .Max Then
Timer1.Enabled = False
Unload Me
Exit Sub
End If
.Value = .Value + 1
End With
End Sub
Cuando aceptás la clave en frmPassword, mostrás el frmMain con
frmMain.Show (en frmPassword)
Saludos Ruri