Form3 Source Code

Private Sub btnAccept_Click()
    'Call frmDP5.btnDisconnect_Click  ' disconnect, so the other interface can connect
    Unload Form3 
End Sub 

Private Sub btnIgnore_Click()
    Unload Form3    ' unload the form without disconnecting
End Sub 

Private Sub Form_Load()
    Timer1.Enabled = True ' start the timer
End Sub 

Private Sub Timer1_Timer()
    If ProgressBar1.Value < ProgressBar1.Max Then 
        ProgressBar1.Value = ProgressBar1.Value + 1 
    Else 
        Call btnAccept_Click 
    End If 
End Sub