tugas 2

Screenshot_6

 

 

 

 

 

Private Sub cmdexit_Click()

Unload Me

End Sub

 

Private Sub cmdbatal_Click()

Textmasukannama = “”

Lbltext = “”

Textmasukannama.SetFocus

End Sub

 

Private Sub cmdprosess_Click()

Lbltext = Textmasukannama

If Checkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

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

 

 

 

Advertisements

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