Private Sub TJ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If TJ = "L" Then
TK = "LAKI-LAKI"
Else
TK = "PEREMPUAN"
End If
TK.SetFocus
End If
End Sub
Private Sub TXTHASIL_Click()
If TK = "PEREMPUAN" Then
TXTHASIL = "KAWIN"
Else
TXTHASIL = "TIDAK KAWIN"
End If
End Sub
VB 2
Tidak ada komentar:
Posting Komentar