Private Sub Command9_Click()
'ListControlProps Me
Dim Ctrl As Control
For Each Ctrl In Me.Controls
tenControl = Ctrl.Properties("Name")
If tenControl = "Command1" Then
Ctrl.Enabled = False
End If
Next Ctrl
End Sub