Adicionando exemplo em VB