1. Add "Toolbox > Windows Form > Progress Bar"
2.
'----------------------------------------------------------------------------------------------
Private Sub frmStartUp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
splashTimer.Start()
End Sub
Private Sub splashTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles splashTimer.Tick
Dim _frmLogin As New FrmLogin
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
splashTimer.Dispose()
Me.Visible = False
_frmLogin.Show()
End If
End Sub
'----------------------------------------------------------------------------------------------
Sumber:
www.ilmukomputer.com