Code of vb (Part-6)

Private Sub ItemCode_Enter()
If ItemCode.Value = "11" Then DoCmd.GoToControl "MonthlyDonationAmount"
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "10" Then DoCmd.GoToControl "CashPaidtoAdmissionTime"
   
MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "12" Then DoCmd.GoToControl "LoanDisburse"
    MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "13" Then DoCmd.GoToControl "WithdrwalAmount"
  MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
If ItemCode.Value = "14" Then DoCmd.GoToControl "PaidKisty"
    MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "15" Then DoCmd.GoToControl "YearlyProfit"
  MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "18" Then DoCmd.GoToControl "ServiceCharge"
  MonthlyDonationAmount.Locked = True
    MonthlyDonationAmount.Enabled = False
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
End Sub