Membuat Splash Screen / Loading screen di Visual Basic

Dalam aplikasi VB atau aplikasi lainnya.Biasanya di buat splash screen atau loading screen, sebelum masuk ke tampilan utama.
Disini saya akan sedikit membahas cara pembuatan splash screen, kali ini saya menggunakan Visual Basic dalam mengaplikasikannya.

Langsung ajah, disiapkan projectnya,komponen menggunakan 
timer
image
dan progress bar(opsional)
 
Gbr 1.Untuk menampilkan komponen progressbar



Gbr 1.2 Design form
 
Gbr 1.3 Loading screen atau splash screen (Running)


Listing Form

1. Option Explicit  
2.   
3. Private Const WS_EX_LAYERED = &H80000  
4. Private Const GWL_EXSTYLE = (-20)  
5. Private Const LWA_COLORKEY = &H1  
6. Private Const LWA_ALPHA = &H2  
7.   
8. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long  
9. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long  
10. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long  
11. Dim RegCtrl As Boolean  
12.   
13. Private Sub Form_Load()  
14. Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)  
15. Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 255, 255), 200, LWA_ALPHA Or LWA_COLORKEY)  
16. End Sub  
17. Private Sub Timer1_Timer()  
18. Static j As Integer  
19. If j < 100 Then j = j + 1 End If PB1.Value = j If PB1.Value = 10 Then Label1.BackColor = vbRed ElseIf PB1.Value = 30 Then Label1.BackColor = vbRed ElseIf PB1.Value = 60 Then Label1.BackColor = vbYellow ElseIf PB1.Value = 90 Then Label1.BackColor = vbGreen Label1.Caption = "GO" End If If PB1.Value = 100 Then Unload Me End Sub  

Sample Project