Visual Basic Cast Object To Type