Estou começando a programar em VCB.net

 

O que esta rotina esta fazendo

--------------------------------------
 mybase.onkeypress(e)

   return

end if

Dim  caractere as  char - " "c  

if char.IsControl(e.keychar) then
 
    if e.keychar=Controlchars.back tehn
          me.text=me.text.substring(0,me.text.length - 1)
     else
  return
     end if
 else
   caractere =e.keychar
end if

if me.text.replace(me.SeparadorGrupo, "").Length > me.Maxlength then
    e.handled=true
    Return
end if

  me.txt & = caractere

  me.PrepararText()
  me.PreencherDecimal()
  me.PreencherGrupo()

  me.select (me.text.length,1)

  e.handled=true

  myBase.onkeyPress(e)

end sub

---------------------------------