Dim S As Integer
Private Sub Timer1_Timer()
If S < 100 Then
S = S + 1
ProgBarXP1.Value = S
Label2.Caption = "PLEASE WAIT LOADING JUST A MOMENT........"
Label3.Caption = Str(ProgBarXP1.Value) + "%"
Else
Unload Me
Form5.Show
Timer1.Enabled = False
End If
End Sub
Ini adalah form loding, form loading ini di gunakan untuk awal masuk program atau kata lainnya untuk proses booting dalam program,,,,,,? selamat mencoba..? semoga bermanfaat....?
Tidak ada komentar:
Posting Komentar