Private Sub Komut3_Click()
On Error Resume Next
For X = 0 To 10
   
      nesneadi = "dgListem_txtY1_0" & X
      Me.Liste1.AddItem (WebBrowser9.Document.getElementByID(nesneadi).innerText + "test")
    Next X
End Sub