tugas 2







Private Sub cmdexit_Click()

Unload Me

End Sub


Private Sub cmdbatal_Click()

Textmasukannama = “”

Lbltext = “”


End Sub


Private Sub cmdprosess_Click()

Lbltext = Textmasukannama

If Checkbold.Value = 1 Then

Lbltext.FontBold = True


Lbltext.FontBold = False

End If

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True


Lbltext.FontItalic = False

End If

End Sub


Private Sub optionblue_Click()

Lbltext.ForeColor = vbBlue

End Sub


Private Sub optionred_Click()

Lbltext.ForeColor = vbRed

End Sub




Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s