做的是押大小游戏借鉴了别人的程序
有两处看不明白
1.
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
' 全局变量
这里是什么意思，没有看懂
2.
' Timer1 控件每一时钟周期（已设为 0.05 秒）
Private Sub Timer1_Timer()
' 如果骰子在滚动则面值变化
Dim i As Long
If Betting Then
For i = 0 To 2
Value(i) = Int(Rnd * 6)
BitBlt picValue(i).hDC, 0, 0, 32, 32, Picture1.hDC, Value(i) * 32, 0, vbSrcCopy
Next
End If
End Sub
这里的代码也不明白
希望朋友们帮忙分析指点下，谢谢了

最上面是声明的api函数，可以查询到

我不会这个问题，但是可以给我这个程序的完整代码和图片吗，我也需要这个程序。谢谢↖(￣▽￣")

1.api 调用 你完全不用管它
2 ' Timer1 控件每一时钟周期（已设为 0.05 秒）
Private Sub Timer1_Timer() //计时器
' 如果骰子在滚动则面值变化
Dim i As Long 设定变量
If Betting Then 色子滚动则运行
For i = 0 To 2 运行3次 0 1 2 （这里指3个色子）
Value(i) = Int(Rnd * 6) 定于变量=随机数（1-6）
BitBlt picValue(i).hDC, 0, 0, 32, 32, Picture1.hDC, Value(i) * 32, 0, vbSrcCopy 复制图片进入pic控件区域
Next 下一个色子
End If
End Sub
简单的说 时钟控件开始时，随机一个数，把这个数对应的图片 （最上面色子1-6的样子）复制进pic图片区，让中间的1个色子 产生变化。重复3次 每个色子1次
我qq 1581799
.记得以前写过一个牌九的游戏 色子比这好看的多..