Code:
Public Class Form1

    Private Sub btb1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btbUploadTorrentOtvoriSumoTorrent.Click
        WebBrowser1.Navigate("http://torrents.sumotorrent.com/upload.php")

    End Sub
    Private Sub posalji_kat()
        

WebBrowser1.Document.GetElementById("mainCat").SetAttribute("value", 2)

    End Sub

    Private Sub posalji_sub_kat()
        WebBrowser1.Document.GetElementById("subCat").SetAttribute("value", 

3)
    End Sub

    Private Sub btb2_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btbUploadTorrentUploadSumoTorrent.Click
        Me.posalji_kat()
        Me.posalji_sub_kat()

    End Sub

End Class