. . : : | TeRRen.Jr | : : . .

hMm..daRi keBAnyakan oRang..baNyak yaNg naNya meNgenai FOrm SPLash..
"Gimana seH bUatnya dy..???" iTU perTAnyaan yaNg seRing gUW daPEt..

neh sourcenya bUAt kaLian..

perTama2 siaPkan :

3 Buah Timer
4 Buah LabeL
1 ProgressBar (Project => component => cekLis Microsoft Windows Common Control 6.0)

NAME pada pRogressbarnya kalian ganti sama XP_ProgressBar1

keMudian..coPy pasTe cOding dibawah iNi..

Option Explicit

Private Sub Timer1_Timer()
Me.XP_ProgressBar1.Value = Me.XP_ProgressBar1.Value + 1
Label4.Caption = Me.XP_ProgressBar1.Value & "%"
If XP_ProgressBar1.Value = XP_ProgressBar1.Max Then
Unload Me
FrmLogin.Show
End If
End Sub

Private Sub Timer2_Timer()
Label2.Caption = Time
Label3.Caption = Date
End Sub

Private Sub Timer3_Timer()
If Label1.ForeColor = vbDefault Then
Label1.ForeColor = vbMagenta
Else
Label1.ForeColor = vbBlack
End If
End Sub


siLahkan meNcoba...
kasih cOmentar kaLo tdak BerJalan..