3 Simple Macros to toggle Num/Caps/Scroll

Hi guys,

I would like to create a simple macro that will place 3 buttons on the screen which each in turn toggles there respective keyboard state; Num Caps and Scroll

I'm not clued up with vbs, in fact I rarely use windows so this is all new to me.

I understand code though so if someone provides me with a starting point i'll be able to move on from there.

The code will go something like this for each button

ButtonCaps.OnClick{
	if(caps.status==true){
		Caps on so switch off
	} else {
		Caps off so switch on
	}
}

Anyone able to do this?

I will then have the code i need to read the state of the keyboard LED and also change it.

Many thanks

P.s. I have tried to do this but keep getting the following error:
Compile error: Method or data member not found

Private Sub ToggleCaps_Click()
If Selection.Information(wdCapsLock) Then
    System.Windows.Forms.SendKeys.Send ("CAPSLOCK")
Else
    System.Windows.Forms.SendKeys.Send ("CAPSLOCK")
End If
End Sub