Form Warna (VB I)

1. Design form dibawah ini dengan nama form warna, gunakan label, textbox, frame, radio button dan button pada toolbox

Listing Code :

Private Sub bbersih_Click()
txthasil = ""
txthasil.SetFocus
End Sub

Private Sub bkeluar_Click()
End
End Sub

Private Sub Form_Activate()
warna.BackColor = vbBlack 'pastikan name pada form sudah diubah menjadi warna
txthasil.BackColor = &HFFFF80
End Sub

Private Sub optblue_Click()
txthasil.ForeColor = vbBlue
End Sub

Private Sub optbold_Click()
txthasil.FontBold = True
txthasil.FontUnderline = False
txthasil.FontItalic = False
End Sub

Private Sub optitalic_Click()
txthasil.FontItalic = True
txthasil.FontBold = False
txthasil.FontUnderline = False
End Sub

Private Sub optred_Click()
txthasil.ForeColor = vbRed
End Sub

Private Sub optunderline_Click()
txthasil.FontUnderline = True
txthasil.FontBold = False
txthasil.FontItalic = False
End Sub

Private Sub optyellow_Click()
txthasil.ForeColor = vbYellow
End Sub