Private Sub bersih_Click()
nama.Text = Clear
Label3.Visible = False
nama.SetFocus
merah.Value = False
biru.Value = False
miring.Value = False
tebal.Value = False
End Sub
Private Sub biru_Click()
Label3.ForeColor = vbBlue
End Sub
Private Sub Form_Activate()
Label3.Visible = False
Label3.FontSize = 30
nama = Clear
Label3.Alignment = center
End Sub
Private Sub keluar_Click()
If MsgBox("...:::KELUAR DARI FORM:::...", vbOKCancel + 32, "INFO") = vbOK Then
End
End If
End Sub
Private Sub merah_Click()
Label3.ForeColor = vbRed
End Sub
Private Sub miring_Click()
Label3.FontItalic = True
End Sub
Private Sub tampil_Click()
Label3.Visible = True
Label3 = nama.Text
End Sub
Private Sub tebal_Click()
Label3.FontBold = True
End Sub


Jonggan

Posted in: