Tugas 2.6
Private Sub ketik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label2 = ketik.Text
End If
End Sub
Private Sub OK_Click()
Label2 = ketik.Text
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Private Sub SELESAI_Click()
End
End Sub
Komentar
Posting Komentar