FKTypeX = gFKTypeX
FKTypeY = gFKTypeY
FKtypePicType = gFKTypePicType
CleanFK
DisVisibleFK
For temX = 1 To 4
For temY = 1 To 4
If FKArray(FKTypeX, FKTypeY).Info(temX, temY) = 1 Then
TTT = (temX - 1) * 12 + temY + 4
Form1!ImageFK(TTT).Visible = True
ImageFKArray(TTT) = 1
End If
Next temY
Next temX