tem = (m - 1) * 12 + n
If ImageBackFKArray(tem) = 1 Then
Form1!ImageFK(tem).Visible = True
End If
Next n
Next m
End Sub
Public Sub SaveFK()
Dim m
Dim n
Dim tem
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
If ImageFKArray(tem) = 1 Then
tem = (m - 1) * 12 + n
If ImageBackFKArray(tem) = 1 Then
Form1!ImageFK(tem).Visible = True
End If
Next n
Next m
End Sub
Public Sub SaveFK()
Dim m
Dim n
Dim tem
For m = 1 To 19
For n = 1 To 12
tem = (m - 1) * 12 + n
If ImageFKArray(tem) = 1 Then