Membuat program Paint sederhana di Visual Basic

Pada form di atas terdapat 1picturebox,1 Text Box, 1 command dialog, dan 1 label. Pada properties masing-masing text box, dan label  diganti namenya menjadi txt_tebal dan lbl_color. Pada saat mengganti  name di properties cantumkan nama name sebelum diubah seperti Txt_tebal . pada label warna backcolor ganti dengan warna apa saja .

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.