tugas 1

Private Sub biru_Click()
Label3.ForeColor = vbBlue

End Sub

Private Sub ketik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label3 = ketik.Text
End If
End Sub

Private Sub merah_Click()
Label3.ForeColor = vbRed

End Sub

Private Sub miring_Click()
Label3.FontItalic = miring.Value
End Sub

Private Sub ok_Click()
Label3.Caption = ketik.Text
End Sub

Private Sub selesi_Click()
End

End Sub

Private Sub tebal_Click()
Label3.FontBold = tebal.Value
End Sub