FreeVBCode code snippet: BlackJack