Get value from a specific column within the LookupEdit

Private Sub lookUpEdit1_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
        Dim editor As DevExpress.XtraEditors.LookUpEdit = CType(sender,
DevExpress.XtraEditors.LookUpEdit)
        Dim row As DataRowView = CType(editor.Properties.GetDataSourceRowByKeyValue(editor.EditValue),
DataRowView)
        Dim value As Object = row(<aFieldName>)
         MsgBox(value.ToString)     End Sub

Sumber : http://community.devexpress.com/forums/p/2938/214262.aspx