Merhaba Arkadaşlar,WebBrowser'a aşağıdaki kodlarla veri gönderiyorum fakat yeni bir kayıt yapmak istediğimde ilk giriş ekranına gelemiyorum.Nasıl bir kod eklemeliyim?





----------------------

Private Sub Komut30_Click()

On Error Resume Next





ProgressBar1.Visible = True

 For A = 1 To 300

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A



  ProgressBar1.Visible = False



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

  

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

 tarayici.Document.getElementById("onayTarihi").Value = Metin14.Value

 

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

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

 End Sub