Private Sub Komut6_Click()
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
Private Sub tarayici_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
tarayici.Document.Links.Item(2).Click
End Sub
Bu tür uygulamaların bir kısmı malesef deneme-yanılma ile yapılıyor. Komut6'nın tıklama kodunu aşağıdaki ile değiştirmeyi dene.