Pada kode di tuliskan seperti diatas.
Private
sub picture1_mousedown () terjadi ketika pemakai melakukan penekanan
tombol mouse pada kontrol, parameter yang dapat digunakan adalah Button
(1 - Tombol kiri, 2 – Tombokanan), Shift (1 - Shift, 2 - Ctrl, 3 -
Alt), X (posisi kolom pointer), Y (posisi baris pointer).
Private
sub picture1_mousemove () terjadi ketika pamakai mengerakan mouse
pada kontrol, parameter yang dapat digunakan adalah Button (1 - Tombol
kiri, 2 - Tombol kanan), Shift (1 - Shift, 2 - Ctrl, 3 - Alt), X
(posisi kolom pointer), Y (posisi baris pointer).
Private
sub txt_tebal_keypress () terjadi pada saat menginput huruf tidak akan
terbaca, yang terbaca hanyalah angka. Keypress digunakan untuk
memanipulasi keyAscii.
Output
ketika diklik run maka tampilan seperti disamping. Fungsi label di
dalam program ini pada saat si klik akan memunculkan warna dan pada
saat warna dipilih warna putih pada label akan berganti wana sesuai
yang dipilih. Text box berfungsi ketika di massukkan angka akan menjadi
tebal garis pada saat picture box di arahkan pointer.