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

Private Sub f(ByRef rfass As Control, ByRef rCheck As CheckBox)
 
  If Link1.Top = rfass.Top + (rfass.Height - 15) And Link1.Left > rfass.Left - _
    ((Link1.Width - 15)) And Link1.Left < rfass.Left + (rfass.Width - 15) Then
    rCheck.Value = 1
  End If
 
End Sub
 
'----
  f fass1, check1
  f fass2, check1
  f fass3, check1

Gruß
Dirk

--
?Get it right the first time