[RESOLVED] Code Optimsation

[sgrya1]

Can someone suggest a way of optimising this code?
I have multiple cases of this and it's annoying to add or update.
I don't care what the sender is. I just want to delete "Varies" from the combobox.

    Private Sub ComboBox_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cboShape.Click, cboGrade.Click, cboDiameter.Click, cboStyle.Click, cboView.Click
        If sender Is cboShape Then : If cboShape.Items.Contains("Varies") Then : cboShape.Items.Remove("Varies") : End If
        ElseIf sender Is cboDiameter Then : If cboDiameter.Items.Contains("Varies") Then : cboDiameter.Items.Remove("Varies") : End If
        ElseIf sender Is cboGrade Then : If cboGrade.Items.Contains("Varies") Then : cboGrade.Items.Remove("Varies") : End If
        ElseIf sender Is cboStyle Then : If cboStyle.Items.Contains("Varies") Then : cboStyle.Items.Remove("Varies") : End If
        ElseIf sender Is cboView Then : If cboView.Items.Contains("Varies") Then : cboView.Items.Remove("Varies") : End If
        ElseIf sender Is cboScale Then : If cboScale.Items.Contains("Varies") Then : cboScale.Items.Remove("Varies") : End If
        ElseIf sender Is cboMeshSize Then : If cboMeshSize.Items.Contains("Varies") Then : cboMeshSize.Items.Remove("Varies") : End If
        ElseIf sender Is cboMeshType Then : If cboMeshType.Items.Contains("Varies") Then : cboMeshType.Items.Remove("Varies") : End If
        ElseIf sender Is cboCouplerBrand Then : If cboCouplerBrand.Items.Contains("Varies") Then : cboCouplerBrand.Items.Remove("Varies") : End If
        ElseIf sender Is cboCouplerType Then : If cboCouplerType.Items.Contains("Varies") Then : cboCouplerType.Items.Remove("Varies") : End If
        ElseIf sender Is cboEndACouplerThread Then : If cboEndACouplerThread.Items.Contains("Varies") Then : cboEndACouplerThread.Items.Remove("Varies") : End If
        ElseIf sender Is cboEnd2CouplerThread Then : If cboEnd2CouplerThread.Items.Contains("Varies") Then : cboEnd2CouplerThread.Items.Remove("Varies") : End If
        ElseIf sender Is cboMembers Then : If cboMembers.Items.Contains("Varies") Then : cboMembers.Items.Remove("Varies") : End If
        ElseIf sender Is cboDrawingTitle Then : If cboDrawingTitle.Items.Contains("Varies") Then : cboDrawingTitle.Items.Remove("Varies") : End If
        End If
    End Sub

[sgrya1]

Ah crap.
A simple google search. Can I delete this post?

Dim myComboBox = CType(sender, ComboBox)
If myComboBox.Items.Contains("Varies") Then
myComboBox.Items.Remove("Varies")
End If

[Delaney]

No, keep your post, it could always be useful to someone else

[jmcilhinney]

Just one thing to note: use DirectCast rather than CType. It's not a big deal but it is the more correct option.