Sorry I should have put this in my original post,
I have tried using
Code:
Private sub Command2_Click()

    Shell "rundll32 mouse,enable"
    Shell "rundll32 keyboard,enable"

End Sub
to enable it again but that did not work,

And There is a way to enable it again if you cant use the keyboard and mouse, you just put the enable script in a timer and when you excute the disable code you also enable the timer.

Also this program is not a joke or a virus or something bad, It is a sort of backup program and I have made another one but it does not disable mouse and keyboard and the users (people that I work with) have a habit of stoping it or making it stuff up some how so I want to disable the use of the keyboard and mouse system wide so that they can not do anything while the backup is i progress.

Thanks

Hurgh