Pada postingan ini adalah lanjutan dari postingan berjudul Membuat input text sederhana untuk pemula jadi projectnya tak usah membuat project yang baru tetapi lanjutkan dari yang sebelumnya, dari tampilan form sebelumnya kita akan lebih berkreasi dengan beberapa format font :

diatas adalah form pertama :

edit lah form tersebut dengan menambahkan RadioButton dari Toolbox sebanyak 7 RadioButton 

setelah selesai  klik tiap RadioButton dan pada bagian Properties RadioButton rubah menjadi nama warna

misal RadioButton1 pada Properties bagian Textnya dirubah menjadi Merah dan begitu juga selanjutnya RadioButton2 pada bagian Properties Textnya rubah menjadi nama warna 

Sekarang double klik pada RadioButton Merah hingga tampil tampilan berikut : dan masukan perintah Label2.ForeColor = Color.Red

Begitu juga seterusnya pada setiap RadioButton yang telah dirubaha properties textnya menjadi nama warna
Label2.ForeColor = Color.Yellow untuk RadioButton Kuning

Label2.ForeColor = Color.Green untuk RadioButton Hijau

Label2.ForeColor = Color.Blue untuk RadioButton Biru

Label2.ForeColor = Color.Purple untuk RadioButton Ungu

Label2.ForeColor = Color.White untuk RadioButton Putih

Label2.ForeColor = Color.Maroon untuk RadioButton Maroon

sehingga jika telah selesai akan mendapati tampilan seperti berikut :

untuk mengecek sementara silahakan akses menu Debug>Start Debugging atau dengan menekan F5

Bila kita masukan sebuah kalimat dan kita memilih opsi-opsi warna yang ada secara otomastis akan berubah.

sekarang mari kita lanjutkan dengan membuat format font lainya menggunakan CheckBox, buatlah 5 CheckBox

Selanjutnya saatnya memasukan perintah-perintah double klik pada checkbox1 atau Bold
dengan perintah :
If CheckBox1.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Bold)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Bold)
        End If

dan begitu juga selanjutnya pada checkbox2 atau italic dan seterusnya double klik dan masukan perintah :
untuk checkbox2 atau Italic
If CheckBox2.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Italic)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Italic)
        End If
untuk checkbok3 atau Underline
If CheckBox3.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Underline)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Underline)
        End If
untuk checkbox4 atau Regular
If CheckBox4.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Regular)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Regular)
        End If
untuk checkbox5 atau Strikeout
 If CheckBox5.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Strikeout)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Strikeout)
        End If

setelah selesai di masukan perintah-perintahnya pada setiap checkbox maka silahkan run debugging dengan F5, maka akan tampil seperti contoh di bawah ini :

contoh gambar di atas menggunakan opsi warna Maroon dan format font Underline serta Strikeout..
mudah bukan?
selamat mencoba dan berkreasi....