Создаю на 6 бэйсике программу. - VB

Формулировка задачи:

Занялся созданием очередного EasyExplorer'a (своей программы). Столкнулся с мыслю что, чтобы программа выглядела лучше, необходимо создать "Loading..." т.е загрузку. Вот подскажите как создать что то типо фэйк таймера . Окошечко с Loading... уже сделал. Жду ответов. Заранее спасибо

Решение задачи: «Создаю на 6 бэйсике программу.»

textual
                            Листинг программы 
                        

                            Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
 
Private Const WM_USER = &H400
 
Private Const PBM_SETPOS = WM_USER + 2
Private Const PBM_SETSTEP = WM_USER + 4
 
Private hPBar As Long
Private i As Long
 
Private Sub Form_Load()
    hPBar = CreateWindowEx(0, "msctls_progress32", "", WS_CHILD Or WS_VISIBLE, 5, 100, 300, 20, Me.hwnd, 0, App.hInstance, 0)
    SendMessage hPBar, PBM_SETSTEP, 1, 0
    SendMessage hPBar, PBM_SETPOS, 0, 0
End Sub
 
Private Sub Timer1_Timer()
    i = i + Rand(1, 15)
    SendMessage hPBar, PBM_SETPOS, i, 0
    Timer1.Interval = Rand(20, 600)
    If i >= 100 Then Sleep 500: Timer1.Enabled = False: Unload Form1
End Sub
 
Private Function Rand(ByVal Low As Long, ByVal High As Long) As Long
    Rand = Int((High - Low + 1) * Rnd) + Low
End Function
                        