lo devo fare in automatico da VB