If Form1!ImageFK(tem).Visible = True Then
ImageBackFKArray(tem) = 1
End If
Next n
Next m
CleanFK
GetNext
End Sub
'能下移吗? 返回1能下移,
'反回 2 到了最底行
Public Function CanMoveNext() As Integer
Dim m
Dim n
If Form1!ImageFK(tem).Visible = True Then
ImageBackFKArray(tem) = 1
End If
Next n
Next m
CleanFK
GetNext
End Sub
'能下移吗? 返回1能下移,
'反回 2 到了最底行
Public Function CanMoveNext() As Integer
Dim m
Dim n