Problemas con modulo

[MarcoArzapalo]

AMIGO BUENAS TARDES, EN PRINCIPIO QUIERO AGRADECERTE POR TOMAR INTERES EN LA PREGUNTA; LO QUE PRETENDO ES HACER EL CODIGO DEL FARMULARIO SEA LO MAS SIMPLE POSIBLE, LA IDEA ERA QUE LOS CODIGOS DE MIS CONTROLES (NUEVO, MODIFICAR, GRABAR, CANCELAR, BUSCAR, ELIMINAR, SALIR) NO SE REPITAN EN TODOS MIS FORMULARIOS, APARENTEMENTE CON MODULO NO SE PODRIA PORQUE NECESARIAMENTE TENGO Q UBICAR EN UN FORMULARIO, SI HAY ALGUN METODO DE HACERLO TE AGRADECERIA EN DECIRMELO; CREO Q ESTE PROCESO EN TODO CASO SE DEBERIA HACER MEDIANTE UN ARCHIVO OCX, PERO NO SÉ COMO DECLARAR LAS VARIABLES EN EL OCX Y NI COMO LLAMARLOS DESDE EL FORMULARIO.
ESTE ES EL CODIGO QUE DESEO LLAMAR A TODOS MIS FORMULARIOS, YO SE Q HAY UNA SOLUCION PARA ESTO, TE AGRADECERIA MUCHO DARME UNA IDEA

Private Sub BloquearCmdNuevo()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdModifica()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdGraba()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdCancela()
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub
Private Sub BloquearCmdElimina()
cmdnuevo.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdBuscar()
cmdnuevo.Enabled = True
cmdgraba.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdcancela.Enabled = False
End Sub
Private Sub BloquearBotones()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub

SALUDOS.
ATTE.
MARCO.