How to submit a web form without a name?

Sub test()
    
    Dim ie As InternetExplorer
    
    Set ie = New InternetExplorer
    
    ie.Navigate [COLOR="Red"]"D:\VBA Forum\Testing\test.html"[/COLOR]
    
    ie.Visible = True
    
    'Loop unitl ie page is fully loaded
    Do Until ie.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    Do Until ie.Document.ReadyState = "complete"
        DoEvents
    Loop
    
    ie.Document.all.Item("user").Value = "Username"
    ie.Document.all.Item("pass").Value = "Password"
    
    Dim x As Integer
    Dim i As Integer
    
    For i = 0 To ie.Document.forms(0).Length - 1
        
        If ie.Document.forms(0)(i).Type = "submit" Then
            ie.Document.forms(0)(i).Click
            Exit For
        End If

    Next i
    
    Do Until ie.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    Do Until ie.Document.ReadyState = "complete"
        DoEvents
    Loop
    
    
    ' Your code
    
    
End Sub

    For x = 0 To ie.Document.forms.Length - 1
 
        For i = 0 To ie.Document.forms(x).Length - 1
 
            'MsgBox ie.Document.forms(x)(i).Value & " " & ie.Document.forms(x)(i).Type
 
            If ie.Document.forms(x)(i).Value = "Set" And ie.Document.forms(x)(i).Type = "submit" Then
                ie.Document.forms(x)(i).Click
                Exit For
            End If
 
        Next i
 
    Next x