then you just remove the thunderbird entry from here:
Dim obj() As String = {"Thunderbird", "FireFox"}
change to:
Dim obj() As String = {"FireFox"}
whatever is in the {} is just a list of items - if you wanted to list the letters A thru E you would say:
Dim obj() As String = {"A", "B"...