Visual Basic - "como pongo activo el teclado"

de antemano muchas gracias

tengo el siguiente codigo que desactiva el teclado
******
Private Sub Command1_Click()
Shell "rundll32 keyboard,disable"
End Sub
******
pero luego no logro activarlo y tengo que reiniciar la maquina
y me gustaria saber como puedo hacer para ponerlo Enabled de nuevo

ya prove asi y no funciona
*******

Private Sub Command2_Click()
Shell "rundll32 keyboard,enable"
End Sub
***********
muchas gracias