DESAIN FORM SPLASH (LOADING)

DESAIN:

Private Sub Timer1_Timer()

‘label 3 adalah nama label yang (captionnya 1) untuk menampilkan angka saat loading

Label3.Caption = Label3.Caption + 1

ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value = ProgressBar1.Max Then

‘timernya silahkan atur intervalnya, jika semakin kecil maka akan semakin cepat splashnya, dan sebaliknya.

Timer1.Enabled = False

Unload Me

form_login.Visible = False

F_MENU.Show

F_MENU.WindowState = 2

End If

End Sub