การแปลงตัวเลขหรือตัวอักษรให้มีเสียงออกมา ที่ทำอยู่เสียงมันดีเลย์ครับ

If e.KeyCode = Keys.NumPad1 Then //ตรวจว่ากดปุ่ม เลข1 หรือไม่
            If CDbl(Label8.Text) = CInt(0) Then //ตรวจลำดับคิวว่ามีคิวเข้ามาในรายการหรือไม่
                MsgBox("ไม่มีคิวเข้ามา")
                Exit Sub
            End If
            ListBox1.SelectedIndex = 0 //เลือกคิวอันดับแรก
            Label2.Text = CStr(ListBox1.SelectedItem) //*** ตรงนี้ตั้งให้ Label2 เท่ากับ ค่าแรกของ Listbox เสมอ
            ListBox1.Items.RemoveAt(0) //ลบคิวที่เรียกออก เพราะมาโชว์ที่ Label2 แล้ว
            count = CInt(Label8.Text) //3บรรทัดนี้ นับแล้วตัดคิวออก แล้วไปแสดง Label8 ว่าเหลือกี่คิว
            count = count - 1
            Label8.Text = CStr(count)
            sound(0) //เรียกเสียงจากไฟล์เสียง โดยใช้ฟังชั่น sound ใส่ ค่าเข้าไปเรียกใช้ Select Case เอง
            sound(CInt(Label2.Text)) //อันนี้จับ ว่า Label2 เป็นเลขอะไร แล้วก็ไปดึงไฟล์เสียงเลขนั้นมา
            sound(10) // 3บรรทัดนี้ ก็ไฟล์เสียงปกติ เช่น ที่ช่องบริการอะไรก็ว่าไป
            sound(1)
            sound(11)
End If