Aqui vai o Tuto (voce pode aplicar isto na form, botoes....
Vou mostar esses dois modos):

1 - Aplicando na Form:

Clique 2 vezes na Form para abrir os Codes.

Declare isto:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Agora digite isto:

Private Sub Form_Load()
DoEvents
BlockInput True
Sleep 999999999
End Sub

Onde está 999999999 é o tempo que ficara travado, sendo que 10000 = 10s


Aplicando a botões:

Declare a mesma coisa e digite isto em um botão:

Private Sub Command1_Click()
DoEvents
BlockInput True
Sleep 999999999
End Sub