Merubah Karakter Huruf Menjadi Kode vb6

Ketika ingin membuat symbol menggunakan huruf biasa dan secara otomatis ketika mengetikkan huruf pada text1 dan pada label1 atau bisa diganti dengan text2 akan memunculkan symbol yang terdapat pada huruf yang diketikkan pada text1, caranya seperti gambar dibawah ini:

Pada gambar diatas yang digunakan adalah text1 dan text2 dan Command1 yang ditaruh diantara text1 dan text2, kemudian klik 2 kali form1 dan masukkan kode vb6 dibawah ini:

Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Text2.Font = "Webdings"
Text2.FontSize = "27"
 Text2 = Text1
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Test run program yang sudah dibuat dan hasilnya seperti gambar dibawah ini: