Splash UHD Berwarna VB6

mungkin ada yang belum tahu maksud saya dengan memberi judul post "Splash UHD Berwarna" , nah , download dulu software contohnya :
Splash UHD Berwarna.rar (23.66kb) (ane compress karena dikira virus)

nah caranya gini :
1. Add components dulu, caranya klick kanan pada toolsbar bagian kiri > components > centang "Microsoft Windows Common Control 6.0 (SP6)" > klick apply lalu oke.

2. Klick "ProgressBar" di toolsbar di bagian kiri Lalu tambahkan ke form yang anda punya
3. lalu tambah timer ke form.
4. Kalo anda sudah melakukannya dengan benar, anda sekarang memasuki tahap coding, dan masukan code berikut ke dalam form :

Option Explicit
Dim iSplash As Integer
Private Sub Timer1_Timer()
On Error Resume Next
iSplash = iSplash + 1
ProgressBar1.Value = ProgressBar1.Value + 1000 / 1000
If iSplash > 100 Then
    Timer1.Enabled = False
    Screen.MousePointer = vbNormal
    Me.WindowState = 0
    Do
    Me.Left = Me.Left + 3000
    Me.Move Me.Left, Me.Top
    DoEvents
    Loop Until Me.Left > Screen.Width
    Load main
    main.Show
    main.SetFocus
    Unload Me
End If
End Sub
Private Sub Form_Load()
SetPrgColor ProgressBar1, vbGreen, vbBlack
Timer1.Interval = 25
End Sub

     ket :
     Merah : Bisa di ganti nama form lain yang di project kalian setelah form ini muncul
     Biru     : Ganti nilai tersebut terserah anda² sekalian. (itu adalah interval, yang berarti kalo 1000 = 1 detik)

5. Lalu Project > Add Module > Open > Masukan code berikut :

Private Declare Function SendNotifyMessage Lib "user32.dll" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetPrgColor(Prg As ProgressBar, ForeColor As OLE_COLOR, BackColor As OLE_COLOR)
SendNotifyMessage Prg.hwnd, (&H400 + 9), 0&, ForeColor
SendNotifyMessage Prg.hwnd, (&H2000 + 1), 0&, BackColor
End Sub

6. Selesai deh... Mantab kan tutornya ? kalo ada yang belum mengerti silahkan comments disini..