VB1

Private Sub Command1_Click()

End Sub

Private Sub cmdaktif_Click()
txtalamat.Enabled = True
txtnilai.Enabled = True
End Sub

Private Sub cmdhilang_Click()
txtnama.Visible = False
txtalamat.Visible = False
txtnilai.Visible = False
End Sub

Private Sub cmdkosong_Click()
txtnama.Text = ""
txtalamat.Text = ""
txtnilai.Text = ""
End Sub

Private Sub cmdmerah_Click()
txtnama.ForeColor = vbRed
txtalamat.ForeColor = vbRed
txtnilai.ForeColor = vbRed
End Sub

Private Sub cmdtampil_Click()
txtnama.Visible = True
txtalamat.Visible = True
txtnilai.Visible = True
End Sub

Private Sub cmdtdkaktif_Click()
txtalamat.Enabled = False
txtnilai.Enabled = False
End Sub

Private Sub Form_Activate()
txtnama.Text = "Maria"
txtalamat.Text = "Medan"
txtnilai.SetFocus
txtnilai.Text = 90
End Sub

Private Sub txtalamat_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
txtnama.SetFocus
txtnilai.BackColor = vbMagenta
txtalamat.Text = "pancing"
End If
End Sub

Private Sub txtnama_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
txtalamat.SetFocus
txtalamat.BackColor = vbYellow
End If
End Sub

Private Sub txtnama_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdtampil.Visible = False
cmdaktif.Visible = False
cmdhilang.Visible = False
cmdtdkaktif.Visible = False
cmdmerah.Visible = False
cmdpink.Visible = False
cmdkosong.Visible = False
End Sub

Private Sub txtnilai_Click()
cmdtampil.Visible = True
cmdaktif.Visible = True
cmdhilang.Visible = True
cmdtdkaktif.Visible = True
cmdmerah.Visible = True
cmdpink.Visible = True
cmdkosong.Visible = True
End Sub