Sample Coding In Visual Basic