consulta sobre un combobox

[boluart]

me ayudaria bastante si me dijeras que error sale, haber prueba con esto,

Código:

 
Dim row As DataRowView = CType(Me.ComboBox1.SelectedItem, DataRowView)
ForEach obj AsObjectIn row.Row.ItemArray
MessageBox.Show(obj.ToString())
Next