Un-subscribe 
[code]
'Make sure when you call it call it unsubscribe1 then unsubscribe2 must be on there profile.
    Private Sub unsubscribe1()
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("innerText").Contains("Subscribed") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub unsubscribe2()
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("innerText").Contains("Unsubscribe") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub[/code]

 Subscribe Snippet
[code]Private Sub SubscribeButton()
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("innerText").Contains("Subscribe") Then
                    elem.InvokeMember("click")
                   
                End If
            Next
        Catch ex As Exception
           
        End Try
    End Sub[/code]

Thumbs Up Snippet
    [code]Private Sub VideoLike()
        Try
            WebBrowser1.Document.GetElementById("watch-like").InvokeMember("click")
            
        Catch ex As Exception
        End Try
    End Sub[/code]

Thumbs Down Snippet
   [code] Private Sub VideoUnLike()
        Try
            WebBrowser1.Document.GetElementById("watch-unlike").InvokeMember("click")
            
        Catch ex As Exception
        End Try
    End Sub [/code]

Comment Snippet
   [code] Private Sub Comment()
        Try
            WebBrowser1.Document.All.GetElementsByName("comment")(0).SetAttribute("value", ListBox2.SelectedItem.ToString)
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("innerText").Contains("Post") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub[/code]

Flag Snippet
[code]
'Call it like flagdropdown then flagreason then flagthisvideo
Public Sub flagdropdown()
        Dim theelementcollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
        For Each curElement1 As HtmlElement In theelementcollection
            If curElement1.GetAttribute("id").Contains("watch-flag") Then
                curElement1.InvokeMember("click")
            End If
        Next
    End Sub
    Private Sub flagreason()
        If ComboBox1.Text = "Sexual Content" Then
            Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
            For Each curElement3 As HtmlElement In theelementcollection1
                If curElement3.GetAttribute("id").Equals("sc") Then
                    curElement3.InvokeMember("click")
                End If
            Next
        Else
            If ComboBox1.Text = "Violent or Repulsive Content" Then
                Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                For Each curElement3 As HtmlElement In theelementcollection1
                    If curElement3.GetAttribute("id").Equals("vc") Then
                        curElement3.InvokeMember("click")
                    End If
                Next
            Else
                If ComboBox1.Text = "Hateful or Abusive Content" Then
                    Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                    For Each curElement3 As HtmlElement In theelementcollection1
                        If curElement3.GetAttribute("id").Equals("hc") Then
                            curElement3.InvokeMember("click")
                        End If
                    Next
                Else
                    If ComboBox1.Text = "Harmful Dangerous Acts" Then
                        Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                        For Each curElement3 As HtmlElement In theelementcollection1
                            If curElement3.GetAttribute("id").Equals("da") Then
                                curElement3.InvokeMember("click")
                            End If
                        Next
                    Else
                        If ComboBox1.Text = "Child Abuse" Then
                            Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                            For Each curElement3 As HtmlElement In theelementcollection1
                                If curElement3.GetAttribute("id").Equals("ca") Then
                                    curElement3.InvokeMember("click")
                                End If
                            Next
                        Else
                            If ComboBox1.Text = "Spam" Then
                                Dim theelementcollection1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                                For Each curElement3 As HtmlElement In theelementcollection1
                                    If curElement3.GetAttribute("id").Equals("sp") Then
                                        curElement3.InvokeMember("click")
                                    End If
                                Next
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Public Sub flagthisvideo()
        Dim theelementcollection9 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
        For Each curElement2 As HtmlElement In theelementcollection9
            If curElement2.GetAttribute("id").Equals("watch-flag-button") Then

                curElement2.InvokeMember("click")
            End If
        Next
      
    End Sub

'Favorite Snippet
Public Sub Drop_down_fav_button()
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
        For Each curElement2 As HtmlElement In theElementCollection
            If curElement2.GetAttribute("title").Equals("Add to favorites or playlist") Then
                curElement2.InvokeMember("click")
            End If
        Next
        Try
            Dim col As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
            For Each elem As HtmlElement In col
                If elem.GetAttribute("innerText").Contains("Favorites") Then
                    elem.InvokeMember("click")
                End If
            Next
        Catch ex As Exception
        End Try
      
    End Sub