Public Sub TextDescrNorm_KeyPress()
  Dim Testo As String = "" 

  CodeTastoIn = Asc(Key.Text)
  Select Case CodeTastoIn
    Case 9
      Testo = TextDescrNorm.Text
      Testo = FIRST_UP(Testo)
      TextDescrNorm.Text = Testo
      If FMain.TipoBll = 2
        TextScontrNum.SetFocus
      Else
        ValuePrezzoUNorm.SetFocus
      Endif
    Case 13
      Testo = TextDescrNorm.Text
      Testo = FIRST_UP(Testo)
      TextDescrNorm.Text = Testo
      If FMain.TipoBll = 2
        TextScontrNum.SetFocus
      Else
        ValuePrezzoUNorm.SetFocus
      Endif
  End Select
  Swdescrkpr = True

End