新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To Form1.Controls.count - 1
        Form1.Controls(i).Enabled = False
    Next i

End Sub

或

Private Sub Command1_Click()
    Dim ctrTemp As Control
    For Each ctrTemp In Me.Controls
        ctrTemp.Enabled = False
    Next
End Sub