merubah text dan font di textbox pada vb 6

lagi ngerapihin data di harddisk ga sengaja nemu project-project kecil bekas latihan kuliah dulu, jadi kepikiran deh untuk berbagi di blog ini. sesuai dengan judulnya, merubah teks dan font di textbox pada vb 6. postingan kali ini hanya pemanis saja untuk teman-teman (udah kaya gula aja yak o.O') yang ingin iseng-iseng .hhehe, soalnya gw belum pernah bikin aplikasi VB pake beginian (kasian kasian kasian :p).
hmm, jadi bayangan dari tutorial ini adalah kita menginputkan teks pada textbox yang ada pada form, lalu pilih button UBAH WARNA untuk merubah warna dan pilih button UBAH HURUF untuk merubah font pada textbox.
okay, kita langsung aja praktekin.. pertama kita bikin form seperti gambar dibawah ini:

keterangan:

Textbox = text1
Commandbutton = Command1 (caption: UBAH WARNA)
Commandbutton = Command2 (caption: UBAH HURUF)
CommonDialog = CommonDialog1

selanjutnya buka tampilan code, dan masukkan script dibawah ini di Commandbutton1.

Private Sub Command1_Click()
    CommonDialog1.Flags = cdlCCRGBInit
    CommonDialog1.ShowColor
    Text1.ForeColor = Me.CommonDialog1.Color
End Sub

dan masukkan script dibawah ini pada Commandbutton2.

Private Sub Command2_Click()
On errror GoTo salah:
    CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
    CommonDialog1.ShowFont
    Text1.FontName = Me.CommonDialog1.FontName
    Text1.FontBold = Me.CommonDialog1.FontBold
    Text1.FontItalic = Me.CommonDialog1.FontItalic
    Text1.FontUnderline = Me.CommonDialog1.FontUnderline
    Text1.FontSize = Me.CommonDialog1.FontSize
    Text1.FontStrikethru = Me.CommonDialog1.FontStrikethru
salah:
    Exit Sub
End Sub

Done !!
selebihnya teman-teman tinggal mengembangkan tutorial ini sesuai kebutuhan.
happy coding :)