End If
GoTo FindtemY
Next n
Next m
FindtemY:
For m = 1 To 12
For n = 1 To 19
tem = (n - 1) * 12 + m
If ImageFKArray(tem) = 1 Then
temY = m
End If
Next n
GoTo FindOK
Next m
FindOK:
End If
GoTo FindtemY
Next n
Next m
FindtemY:
For m = 1 To 12
For n = 1 To 19
tem = (n - 1) * 12 + m
If ImageFKArray(tem) = 1 Then
temY = m
End If
Next n
GoTo FindOK
Next m
FindOK: