Sub umraniye()
On Error GoTo err_
Dim A, B, C
C = convert([ILCELER], 0)
WebBrowser1.Navigate2 "http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=UMRANIYE" & C
ProgressBar1.Visible = True
For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 200000
Next B
Next A
ProgressBar1.Visible = False
Call aktar1
'Requery
err_:
End Sub
Formun açıldığında olayını ise aşağıdaki gibi güncelleyin:
WebBrowser1.silent = True
Me.ProgressBar1.Visible = False
umraniye