1. Buat membesarkan huruf: - Menggunakana Event Change Private Sub Text1_Change() Dim posisi As Integer posisi = Text1.SelStart Text1.Text = UCase(Text1.Text) Text1.SelStart = posisi End Sub
- menggunakan event keypress Private Sub Text2_KeyPress(KeyAscii As Integer) 'Text2 menggunakan KeyPress KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub 2. 2 textbox di blok trus untuk menggeser gunakan Ctrl+tanda panah dan untuk memperbesar or memperkecil textbox gunakan Shift+tanda panah 3. Jangan lupa property multiline di jadikan true dan scrolbarnya pilih yang nomor 2 (vertical) Mudah-mudahan membantu. www.afdoal.co.nr www.mbojo-lab.co.nr
