...or...
Private Property Get Buttons() As Access.CommandButton()
Buttons = Array(Me.cmdFirst, Me.cmdPrev, Me.cmdNext, Me.cmdLast)
End Property
Private Sub Form_Current()
SetVisibility Buttons, Me.Recordset.RecordCount > 1
End Sub
' in a library somewhere, not on the form
Public Sub...