Code:
Private Sub LockReagentPerCraft()
Dim i As Integer 'loop counter
For i = 1 To 8
LockControl (Me.Controls("cboReagent0" & CStr(i)))
LockControl (Me.Controls("txtPerCraft0" & CStr(i)))
Next i
End Sub
Public Sub LockControl(ByRef ctl As Control)
With ctl
.Locked = True
.TabStop = False
End With
End Sub
How do I pass the control reference?