2_6

Private Sub chkmiring_Click()
Label2.FontItalic = chkmiring.Value
End Sub

Private Sub chktebal_Click()
Label2.FontBold = chktebal.Value
End Sub

Private Sub cmdbatal_Click()
Unload Me
End Sub

Private Sub cmdok_Click()
Label2.Caption = Text1.Text
End Sub


Private Sub optbiru_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub optmerah_Click()
Label2.ForeColor = vbRed
End Sub