Visual Basic ( Loading Splash Screen using Progress Bar in VB 6.0 )

Salam Sahabat Blogger...
Suasana Malam ini tepat untuk membuat project maupun program yang unik-unik dan menarik,nah..mari kita konsep sebuah VB project berbentuk animasi sederhana..
Semangat3x..

RezpeC N PeacE !!!
















CODE

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value = 80 Then
      ProgressBar1.Value = ProgressBar1 + 20

        If ProgressBar1.Value >= ProgressBar1.Max Then
            Timer1.Enabled = False
        End If
      'In this are you may call the form to be loaded next!
      MsgBox "Loading Complete!", vbInformation, "Info"
      Unload Me
   End If
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="http://baim-blogs.blogspot.com/2013/09/visual-basic-loading-splash-screen.html">Visual Basic ( Loading Splash Screen using Progress Bar in VB 6.0 )</a>