While we appreciate comments from our users, please follow our posting guidelines. Have you tried the Cyotek Forums for support from Cyotek and the community?

Styling with Markdown is supported

Original Comment

Gravatar

Luis Mendieta

# Reply

It was unintended, but deadly effective and quick. Here the code:

Private Sub cboProdsServs_Click(sender As Object, e As EventArgs) Handles cboProdsServs.Click
    Try
        Dim item As Object
        For Each item In lbSeleccion.Items
            If item = cboProdsServs.Text Then
                Exit Sub
            End If
        Next

        lbSeleccion.Items.Add(cboProdsServs.Text)

    Catch ex As Exception
        Debug.Print(ex.Message)
    End Try

End Sub

My idea was avoid user double-add items in the second combo (lbSeleccion), while first (cboProdsServs) has items to move to cboProdsServs list, but finally worked like double click event! Hope it helps. Note that the host event is cboProdsServs_Click.