Değişkeni yazıp isim gösterme

 
 Imports System.Collections.Generic
 
 Public Class fiyat
 	Public liste As New Dictionary(Of String, Double)()
 
 	Public Sub New()
 		liste.Add("Ezo Gelin", 3)
 		liste.Add("Şehriye", 4)
 		liste.Add("Mercimek", 5)
 	End Sub
 End Class
 

 Imports System.Windows.Forms
 Imports System.Linq
 Public Partial Class MainForm
 	Inherits Form
 	Public Sub New()
 
 
 		InitializeComponent()
 	End Sub
 	Private Sub MainFormLoad(sender As Object, e As EventArgs)
 		Dim fiyat As  New fiyat()
 		comboBox1.DataSource = fiyat.liste.ToList()
 		comboBox1.DisplayMember = "Key"
 		comboBox1.ValueMember = "Value"
 		label1.Text = comboBox1.SelectedValue.ToString()
 	End Sub
 	Private Sub ComboBox1SelectedIndexChanged(sender As Object, e As EventArgs)
 		label1.Text = comboBox1.SelectedValue.ToString()
 	End Sub
 End Class
 

 
 Public Class fiyat 
         Public liste As New Dictionary(Of String, Single)() 
  
         Public Sub New() 
         liste.Add("İşkembe", 1) 
         liste.Add("Şehriye", 2) 
         liste.Add("Kelle Paça", 3) 
         liste.Add("Etli", 4) 
         liste.Add("Mercimek", 5) 
         liste.Add("Tavuk Suyu", 6) 
     End Sub 
     End Class

Private Sub MainFormLoad(sender As Object, e As EventArgs) 
         Dim Fiyat As New Fiyat() 
         CB1.DataSource = Fiyat.liste.ToList() 
         CB1.DisplayMember = "Key" 
         CB1.ValueMember = "Value" 
         TBHesap.Text = CB1.SelectedValue.ToString 
     End Sub

Private Sub BFK_Click(sender As Object, e As EventArgs) Handles BFK.Click 
  
         CB1.SelectedValue = CSng(TBFiyat.Text)