test = 1
goback:
If test = 0 Then
CanMoveNext = 0
Else
CanMoveNext = 1
End If
End Function
'这里要干什么呢?
Public Sub VisibleBackImg()
Dim m
Dim n
Dim tem
For m = 1 To 19
For n = 1 To 12
test = 1
goback:
If test = 0 Then
CanMoveNext = 0
Else
CanMoveNext = 1
End If
End Function
'这里要干什么呢?
Public Sub VisibleBackImg()
Dim m
Dim n
Dim tem
For m = 1 To 19
For n = 1 To 12