我需要一个vb大神 急需

我需要一个vb大神 急需

是相当于打地鼠的游戏吗？追问是的追答用VB编个简单的打地鼠游戏
一、界面设计

二、属性设置

timer1 和timer2的属性都按上图设置。

自定义鼠标，先将MousePointer=99,再设置MouseIcon的值。
三、代码编写
Dim Temp As Long
Dim tempTime(8) As Long '记录每个图片显示所剩余的时间
Dim Lose As Long '记录逃走的个数
Private Sub Command1_Click() '游戏初始化
For i = 1 To 8
Picture1(i).Visible = False
tempTime(i) = 0
Next
Timer1.Enabled = True '启动计时器
Timer2.Enabled = True
Lose = 0
End Sub
Sub xiashi()‘子程序，用来显示图片
Temp = Int(Rnd() * 9)
Picture1(Temp).Visible = True
tempTime(Temp) = 4
End Sub
Private Sub Form_Load()
Randomize '随机数初始化
End Sub
Private Sub Picture1_Click(Index As Integer)
Picture1(Index).Visible = False
tempTime(Index) = 0
End Sub
Private Sub Timer1_Timer()
xiashi
End Sub
Private Sub Timer2_Timer()
For i = 0 To 8
If tempTime(i) > 0 Then
tempTime(i) = tempTime(i) - 1
If tempTime(i) = 1 Then
Picture1(i).Visible = False
Lose = Lose + 1
Label1.Caption = Lose
If Lose > 10 Then '停止计时器
Timer1.Enabled = False
Timer2.Enabled = False
MsgBox "你失败了。"
End If
End If
End If
Next
End Sub
四、其他
关于光标形状变成枪的问题你需要一个ICO文件。