Cara Menambahkan Bullet pada RichTextBox

Selamat datang di blog belajar visual basic kali ini akan membahas mengenai cara menambahkan Bullet pada Rich Text Box,Pada tutorial ini hanya membahas contoh yang sangat dasar yang untuk selanjutnya anda bisa mengembangkan sendiri. Untuk langkah-langkahnya sebagai berikut:

- Buka VB6 nya >> Standard Exe.

- Pilih Project >> Commponent, kemudian tambahkan component “Microsoft Rich Textbox Control 6.0 (SP4)

- Kemudian desain formnya seperti gambar dibawah ini, dengan menambahkan 1 Command button dan 1 RichTextBox.

- Lalu masukan sintak berikut pada Command1

Private Sub Command1_Click()
   Me.RichTextBox1.Text = "Contoh Bullet"
   Me.RichTextBox1.SelIndent = 200
   Me.RichTextBox1.BulletIndent = 90
   Me.RichTextBox1.SelBullet = True
   Me.RichTextBox1.SetFocus
End Sub

Kemudian jalankan, klik Command1 maka akan tercipta sebuah bullet. Untuk menambah bulletnya tinggal enter di Akhir kalimat.

Sekian Tutorialnya semoga bermanfaat.