Private Sub cmdbersih_Click()
Text1.Text =””
Text1.BackColor = vbWhite
Opbiru.Value = False
Opkuning.Value = False
Opungu.Value = False
End Sub
Private Sub cmdhijau_Click()
Text1.BackColor = vbGreen
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdmerah_Click()
Text1.BackColor = vbRed
End Sub
Private Sub cmdpink_Click()
Text1.BackColor = RGB(245, 26, 216)
End Sub
Private Sub Opbiru_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Opkuning_Click()
Text1.ForeColor = vbYellow
End Sub
Private Sub Opungu_Click()
Text1.ForeColor = RGB(64, 1, 59)
End Sub
Private Sub Text1_Click()
Text1.Text = “Nama dan NIM
Text1.FontSize = 20
Text1.Alignment = vbCenter
End Sub
Tinggalkan komentar