Dim b As Binding = New Binding("SelectedValue", dsPumps, "PumpTable.ORing")
    AddHandler b.Parse, AddressOf Me.MyParseMethod '/* Taking it from UI to the 
    ' underlying object */
    AddHandler b.Format, AddressOf MyFormatMethod '/* From object to UI */
    cbpORing.DataBindings.Add(b)
    Private Sub MyParseMethod(ByVal sender As Object, ByVal e As _
      ConvertEventArgs)
    End Sub
    Private Sub MyFormatMethod(ByVal sender As Object, ByVal e As _
      ConvertEventArgs)
    End Sub