Visual Basic Set Object