aplikasi sederhana

buat form seperti ini :

masukkan perintah di bawah ini :

Private Sub chkgaris_Click()

If chkgaris.Value = 1 Then

txtinput.FontUnderline = True

 Else

txtinput.FontUnderline = False

 End If

End Sub

Private Sub chkmiring_Click()

 If chkmiring.Value = 1 Then

txtinput.FontItalic = True

 Else

txtinput.FontItalic = False

 End If

End Sub

Private Sub chktebal_Click()

 If chktebal.Value = 1 Then

txtinput.FontBold = True

 Else

txtinput.FontBold = False

 End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub opt10_Click()

txtinput.FontSize = 10

 End Sub

Private Sub opt12_Click()

txtinput.FontSize = 12

End Sub

Private Sub opt14_Click()

txtinput.FontSize = 14

End Sub

Private Sub optkanan_Click()

txtinput.Alignment = 1

End Sub

Private Sub optkiri_Click()

txtinput.Alignment = 0

End Sub

Private Sub opttengah_Click()

txtinput.Alignment = 2

End Sub

tekan f5 untuk menjalankan, inilah hasilnya :