If Link1.Top = fass1.Top + (fass1.Height - 15) And Link1.Left > fass1.Left - _
  ((Link1.Width - 15)) And Link1.Left < fass1.Left + (fass1.Width - 15) Then _
  Check1.Value = 1
 If Link1.Left = fass1.Left - (Link1.Width - 15) And Link1.Top > fass1.Top - _
 ((Link1.Height - 15)) And Link1.Top < fass1.Top + (fass1.Height - 15) Then _
 Check2.Value = 1
If Link1.Top = fass1.Top - (Link1.Height - 15) And Link1.Left > fass1.Left - _
((Link1.Width - 15)) And Link1.Left < fass1.Left + (fass1.Width - 15) Then _
Check3.Value = 1
If Link1.Left = fass1.Left + (fass1.Width - 15) And Link1.Top > fass1.Top - ( _
(Link1.Height - 15)) And Link1.Top < fass1.Top + (fass1.Height - 15) Then _
Check4.Value = 1
If Link1.Top = fass2.Top + (fass2.Height - 15) And Link1.Left > fass2.Left - _
((Link1.Width - 15)) And Link1.Left < fass2.Left + (fass2.Width - 15) Then _
Check1.Value = 1
 If Link1.Left = fass2.Left - (Link1.Width - 15) And Link1.Top > fass2.Top - _
 ((Link1.Height - 15)) And Link1.Top < fass2.Top + (fass2.Height - 15) Then _
 Check2.Value = 1
If Link1.Top = fass2.Top - (Link1.Height - 15) And Link1.Left > fass2.Left - _
((Link1.Width - 15)) And Link1.Left < fass2.Left + (fass2.Width - 15) Then _
Check3.Value = 1
If Link1.Left = fass2.Left + (fass2.Width - 15) And Link1.Top > fass2.Top - ( _
(Link1.Height - 15)) And Link1.Top < fass2.Top + (fass2.Height - 15) Then _
Check4.Value = 1
If Link1.Top = fass3.Top + (fass3.Height - 15) And Link1.Left > fass3.Left - _
((Link1.Width - 15)) And Link1.Left < fass3.Left + (fass3.Width - 15) Then _
Check1.Value = 1
 If Link1.Left = fass3.Left - (Link1.Width - 15) And Link1.Top > fass3.Top - _
 ((Link1.Height - 15)) And Link1.Top < fass3.Top + (fass3.Height - 15) Then _
 Check2.Value = 1
If Link1.Top = fass3.Top - (Link1.Height - 15) And Link1.Left > fass3.Left - _
((Link1.Width - 15)) And Link1.Left < fass3.Left + (fass3.Width - 15) Then _
Check3.Value = 1
If Link1.Left = fass3.Left + (fass3.Width - 15) And Link1.Top > fass3.Top - ( _
(Link1.Height - 15)) And Link1.Top < fass3.Top + (fass3.Height - 15) Then _
Check4.Value = 1
If Link1.Top = fass4.Top + (fass4.Height - 15) And Link1.Left > fass4.Left - _
((Link1.Width - 15)) And Link1.Left < fass4.Left + (fass4.Width - 15) Then _
Check1.Value = 1
 If Link1.Left = fass4.Left - (Link1.Width - 15) And Link1.Top > fass4.Top - _
 ((Link1.Height - 15)) And Link1.Top < fass4.Top + (fass4.Height - 15) Then _
 Check2.Value = 1
If Link1.Top = fass4.Top - (Link1.Height - 15) And Link1.Left > fass4.Left - _
((Link1.Width - 15)) And Link1.Left < fass4.Left + (fass4.Width - 15) Then _
Check3.Value = 1
If Link1.Left = fass4.Left + (fass4.Width - 15) And Link1.Top > fass4.Top - ( _
(Link1.Height - 15)) And Link1.Top < fass4.Top + (fass4.Height - 15) Then _
Check4.Value = 1
If Link1.Top = fire2.Top + (fire2.Height - 15) And Link1.Left > fire2.Left - _
((Link1.Width - 15)) And Link1.Left < fire2.Left + (fire2.Width - 15) Then _
Check1.Value = 1
 If Link1.Left = fire2.Left - (Link1.Width - 15) And Link1.Top > fire2.Top - _
 ((Link1.Height - 15)) And Link1.Top < fire2.Top + (fire2.Height - 15) Then _
 Check2.Value = 1
If Link1.Top = fire2.Top - (Link1.Height - 15) And Link1.Left > fire2.Left - _
((Link1.Width - 15)) And Link1.Left < fire2.Left + (fire2.Width - 15) Then _
Check3.Value = 1