Progress bar for saving process

[haihems]

Can anybody help me for the following?
I want to show a small window with a message "Saving in progress" and a progress bar running, when I save the data to the database. I tried, but the small window get activated once the saving progress finished

Here is my code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim oMessage = New frmDialogBox
    oMessage.show()
    oMessage.Toplevel = True
    Saving()
    oMessage.close
    End Sub

frmDialogBox form:

Private Sub DialogBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Label1.Text = "Loading In Progress..."
 
    End Sub
 
    Private Sub DialogBox_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Timer1.Enabled = True
        Label1.Text = "Loading In Progress..."
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Not ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
        Else
            ProgressBar1.Value = 0
        End If
    End Sub

Thanks