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.
HTML Code:
    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