求大神帮忙，用vb做一个猜字游戏

Question

鉴于图片太模糊，奇女纸决定换文字。。 一开始计算机会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1a，如果数字相同而位置相不同，将会显示1b。例如：计算机的随机数字为：1234，我猜的数字为：1356，那么这时计算机会给你提示为：1a1b，也就是说，你猜的数字中，有一位数字是猜对的，而且数字位置都对，所以显示为1a；还有一个数字也猜对了，但是位置不对，所以显示为1b。就这些了，看谁猜的次数少。
首先在form中加入一个commandbuttion控件，在command1上点击鼠标右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个command1,此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个commandbuttion控件，一个listbox、一个frame、一个label。设置窗体的caption属性为“猜一猜”、borderstyle为1－fixedsingle、控件数组的captin分别为0、1、2、3、4、5、6、7、8、9，command2的caption为“确定"，command3的caption为“取消"，frame1的caption为“提示："，label1的cpation为“0a0b"。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的name属性分别为：game、new、view、end。