VB PERATAAN TEKS

 Public Class Form1

    Private Sub optKiri_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optKiri.CheckedChanged

        txtTeks.TextAlign = HorizontalAlignment.Left

    End Sub

    Private Sub optTengah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optTengah.CheckedChanged

        txtTeks.TextAlign = HorizontalAlignment.Center

    End Sub

    Private Sub OptKanan_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles OptKanan.CheckedChanged

        txtTeks.TextAlign = HorizontalAlignment.Right

    End Sub

    Private Sub optPutih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optPutih.Click

        txtTeks.BackColor = Color.White

    End Sub

    Private Sub optKuning_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optKuning.Click

        txtTeks.BackColor = Color.Yellow

    End Sub

    Private Sub optHijau_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optHijau.Click

        txtTeks.BackColor = Color.SpringGreen

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        txtTeks.Text = ""  'Hapus teks

    End Sub

    Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click

        Close()

    End Sub

End Class