code for mastermind in visual basic