Bilangan genap ganjil

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "GENAP"
Else
Label1.Caption = "GANJIL"
End If
cmdulang.Enabled = True
cmdproses.Enabled = False
End Sub

Private Sub cmdulang_Click()
Text1.Text = ""
Label1.Caption = ""
cmdproses.Enabled = True
cmdulang.Enabled = False
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdproses.SetFocus
End If
End Sub