Public Sub Gender(ByVal objcombo As ComboBox)
Dim objGender As New Dictionary(Of String, String)

objGender.Add(“M”, “Male”)
objGender.Add(“F”, “Female”)

Dim mBinding As New BindingSource

mBinding.DataSource = objGender

objcombo.DataSource = mBinding
objcombo.DisplayMember = “Value”
objcombo.ValueMember = “Key”
End Sub