Cara Membuat Form Splash Sederhana Dengan VB6.0
Cara Membuat Splash Screen Sederhana - Ok langsung saja lihat langkah-langkahnya di bawah.
1. Buka Visual Basic 6 dan pilih Standart EXE.
2. Klik Project > Add From > pilih Splash Screen > Open
3. Hapus semua code dan button yang sudah ada
4. Masukan Components Miscrosoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6) > OK.
Dan
Oiya component nya bisa dipanggil dengan ketik CTRL+T
5. Setelah di masukan, sekarang masukan beberapa komonen :
- 1 ProgressBar
- 1 Timmer
- 1 Label
Atur Propertinya Seperti Ini :
- Progressbar : Appearance = 0 - ccflat, Scroling = 1
- Timer : Interval = 50
- Label : Caption = Atur sesuai kebutuhan
Kira - kira akan menjadi seperti ini :
6. Selanjutnya Klik Project > Click Project1 Properties > General > pada Startup Object ganti ke frmSplash.
7. Kodenya :
Option Explicit
Dim efek As Integer
Private Sub Timer1_Timer()
On Error Resume Next
efek = efek + 5
ProgressBar1.Value = ProgressBar1.Value + 400 / 400
If efek > 500 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Load Form1
Form1.Show
Unload Me
End If
End Sub8. Selesai9.Kalo bermanfaat Follow ya
10. masih kurang jelas Pm me DiFB :D PM















![[Image: ddos-network-map.jpg]](http://tomyseptiyansyah.files.wordpress.com/2012/12/ddos-network-map.jpg)
![[Image: 2412011151633.jpg]](http://img51.imageshack.us/img51/6006/2412011151633.jpg)
![[Image: 2412011151938.jpg]](http://img692.imageshack.us/img692/5576/2412011151938.jpg)
![[Image: 2412011152103.jpg]](http://img200.imageshack.us/img200/3386/2412011152103.jpg)
![[Image: 2412011152333.jpg]](http://img830.imageshack.us/img830/3320/2412011152333.jpg)
![[Image: 2412011152654.jpg]](http://img41.imageshack.us/img41/4665/2412011152654.jpg)
![[Image: 2412011152952.jpg]](http://img703.imageshack.us/img703/1320/2412011152952.jpg)
![[Image: 2412011153255.jpg]](http://img3.imageshack.us/img3/690/2412011153255.jpg)