Pengenalan Object

Listing Program

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

Posted in: Visual Basic