Forma progressbar ekle ve önceki verdiğim kodu silip aşağıdaki kodu ekle.

Private Sub Komut6_Click()

on error resume next

call verigonder



ProgressBar1.Visible = True

 For A = 1 To 100

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A



  ProgressBar1.Visible = False

 

tarayici.Document.Links.Item(2).Click



    

End Sub



sub VeriGonder

    tarayici.Document.getElementById("kimlikNo").Value = Metin3.Value

    tarayici.Document.getElementById("dosyaNo").Value = Metin2.Value

    tarayici.Document.getElementById("soyad").Value = Metin9.Value

    tarayici.Document.getElementById("ad").Value = Metin11.Value

    tarayici.Document.getElementById("babaAdi").Value = Metin13.Value

    tarayici.Document.getElementById("dogumYeri").Value = Metin15.Value

    tarayici.Document.getElementById("dogumTarihi").Value = Metin18.Value

    tarayici.Document.getElementById("cinsiyeti").Value = Metin22.Value

    tarayici.Document.getElementById("adres").Value = Metin24.Value

    tarayici.Document.getElementById("verilisTarihi").Value = Metin26.Value

    tarayici.Document.Links.Item(2).Click

end sub