[Resolvido]Botão habilitado ou não de acordo a uma condição

Olá à todos do fórum. Tenho uma parte no sistema onde bloqueia e ou desbloqueia a tecla shift,
tudo funcionando perfeitamente, quando clico no Btn_Bloquear, o botão fica desabilitado,
porém ao reabrir o formulário,  o Btn_Bloquear está habilitado novamente.
O que estou querendo (se possível)? é quando clicar no Btn_Bloquear , o botão fique desabilitado,
até que eu clique no botão para habilitar e vice-versa ou seja, sempre que eu abrir o formulário
(quando necessário), eu já veja qual botão está em funcionamento.
Desde já muito obrigado.
Obs.: é mais a título de curiosidade, uma vez que o restante funciona perfeitamente.

Boa noite,
Crie uma variável global para controlar se está habititado ou não

Bom dia,
desculpe mas não sei como fazer neste caso específico ,
vou pesquisar...
obrigado.

Consegui resolver...de outra forma.
Obrigado à todos.


Não sei se é a forma correta, mas talvez ajude a alguém...

- Criei uma tabela (Tbl_EstadoBotao), com um campo (EstadoBotao) para guardar o valor dos Botões
------------------------------------------------------------------------------------------------------
No formulário de bloqueio/desbloqueio
Private Sub Btn_Bloquear_Click()
Call TravaShift 'Chama a função para travar shift
    MsgBox "Tecla Shift bloqueada", vbInformation, "BLOQUEIO" ’Mensagem de Shift bloqueada
        Me.Btn_CadUsuario.SetFocus 'movi o foco para outro controle
            Me.Btn_Bloquear.Visible = False 'deixo o Botão de bloqueio invisivel
      Me.Btn_Desbloquear.Visible = True 'deixo o Botão de desbloqueio visivel
Me.Txt_EstadoBotao.Value = "BLOQUEADO" 'o campo EstadoBotao da Tbl_EstadoBotao recebe o valor...
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub Btn_Desbloquear_Click()
Call LiberaShift 'Chama a função para destravar shift
    MsgBox "Tecla Shift desbloqueada", vbInformation, "DESBLOQUEIO" ’Mensagem de Shift desbloqueada
         Me.Btn_CadUsuario.SetFocus 'movi o foco para outro controle
              Me.Btn_Desbloquear.Visible = False 'deixo o Botão de desbloqueio invisível
       Me.Btn_Bloquear.Visible = True 'deixo o Botão de bloqueio visivel
Me.Txt_EstadoBotao.Value = "DESBLOQUEADO" 'o campo EstadoBotao da Tbl_EstadoBotao recebe o valor...
End Sub
--------------------------------------------------------------------------------------------------------
No evento Ao abrir do formulário
If Me.Txt_EstadoBotao.Value = "Bloqueado" Then 'Se o campo EstadoBotao da Tbl_EstadoBotao ...
  Me.Btn_Bloquear.Visible = False 'deixa o Botão de bloqueio invisivel
Else
  Me.Btn_Desbloquear.Visible = False 'deixa o Botão de desbloqueio invisivel
End If