如何用VB语言实现四连环游戏（重力四子棋）？

如何用VB语言实现四连环游戏（重力四子棋）？
要求如下1.四连环是一个双人游戏，两位玩家轮流将自己的棋子放在一个8列6行的筒状棋盘上。玩家每次只需要指定棋盘上的列号，则棋子自动落到这一列的底部或者叠放于该列已有棋子的上面。游戏的目标是在对手之前将自己的4个相邻棋子放在一行、一列或一条斜线上。2. 程序扮演一位玩家，用户作为其对手。程序采用随机方式选择要放棋子的列，用户则是手工输入要放棋子的列。假设用户输入的都是整数，当用户输入的列号不在1到8之间时，程序会提示用户，并让用户重新输入；当用户输入的列号已经放满了棋子时，程序也会提示用户，并让用户重新输入。而当程序自己在随机地选择要放棋子的列时，它会自动地忽略那些已经放满棋子的列。3. 由程序判断双方的胜负，分出胜负则程序结束。当出现棋盘满了而无法放棋子的时候，判为平局。