inputAnzahl = WebBrowser1.Document.frames(1).Document.Forms(0).All.tags( _
      "input").length
    For i = 0 To inputAnzahl - 1
        If WebBrowser1.Document.frames(1).Document.Forms(0).All.tags("input")( _
          i).Value = "Verschieben" Then
            WebBrowser1.Document.frames(1).Document.Forms(0).All.tags("input")( _
            i).Click
            Exit For
        End If
    Next

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...