Program "Pengenalan Warna" Pada Visual Basic

 
disini saya akan memberikan program untuk "Pengenalan Warna" pada Visual Basic :

1. jelas kita membuka software vbnya terlebih dahulu
2. terdapat beberapa menu pilihan , nah kita memilihnya yang Standard.Exe lihat gambar dibawah ini
   
3. desainlah form nya seperti ini
   
4. lalu copy pastekan kodingan ini :
   Private Sub cmdbersih_Click()
   txthasil.FontBold = False
   txthasil.FontItalic = False
   txthasil.FontUnderline = False
   txthasil.ForeColor = vbBlack
   txthasil.SetFocus
   End Sub
   
   Private Sub optblue_Click()
   optblue.BackColor = vbBlue
   txthasil.ForeColor = vbBlue
   End Sub
   
   Private Sub optbold_Click()
   txthasil.FontItalic = False
   txthasil.FontBold = True
   txthasil.FontUnderline = False
   End Sub
   
   Private Sub optitalic_Click()
   txthasil.FontBold = False
   txthasil.FontItalic = True
   txthasil.FontUnderline = False
   End Sub
   
   Private Sub optred_Click()
   optred.BackColor = vbRed
   txthasil.ForeColor = vbRed
   End Sub
   
   Private Sub optunderline_Click()
   txthasil.FontUnderline = True
   txthasil.FontBold = False
   txthasil.FontItalic = False
   End Sub
   
   Private Sub optyellow_Click()
   optyellow.BackColor = vbYellow
   txthasil.ForeColor = vbYellow
   End Sub
   
   Private Sub cmdkeluar_Click()
   p = MsgBox("Apakah anda ingin keluar", vbQuestion + vbOKCancel, "Informasi")
   If p = vbOK Then
   Unload Me
   End If
   End Sub