Как организовать Splash форму при загрузке главной формы? - VB

'На frmSplash поставить таймер и установить 
'свойства Enabled=True, Interval=3000
 
'----------------------------------------------
'Код модуля
'----------------------------------------------
 
Option Explicit
 
Private Declare Sub SetWindowPos Lib 'user32' _
    (ByVal hWnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
 
Sub SetTopMost(ByVal hWnd As Long)
 
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
 
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE
    
End Sub
 
Sub Main()
 
frmSplash.Show
Screen.MousePointer = vbHourglass
frmSplash.Refresh
 
... тут можно что-то делать ...
 
frmMain.Show
 
End Sub
 
'----------------------------------------------
'Код формы frmSplash
'----------------------------------------------
 
Option Explicit
 
Private Sub Form_Load()
    SetTopMost hWnd
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set frmSplash = Nothing
End Sub
 
Private Sub Timer1_Timer()
    Screen.MousePointer = vbDefault
    Unload Me
End Sub