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