PBar help

[308holes]

I have a progressbar in my project and i want a form to show after the progressbar get %100 here is my code help please

Option Explicit
Private Sub Form_Load()
    Load frmMain
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
 
Private Sub Timer1_Timer()
PBar1.Value = PBar1.Value + 2
End Sub

[cafeenman]

Sub Timer1_Timer()
 
' code you already have here
 
if pbar1.value = pbar1.max then form.show
 
End Sub

[308holes]

Cool thanks