كود لعمل شاشة افتتاحية

سوف تحتاج الى نموذجين ضع هذا في النموذج الأول

Private Sub Form_Load()

Dim Start, Finsh

Form2.Show

Start = Timer

Finsh = Start + 3

Do Until Finsh <= Timer

DoEvents

Loop

Unload Form2

Form1.Show

End Sub