Glasswall and hack menu questions

[Matemax]

Well, I wanted to create a Glasswall with hotkeys, so I can use it only when I want.
I coded like this:

Private Sub tmrGlasswall_Timer()
If getkeypressed(vbkeyAlt) Then
Call writealong("Warrock", &HAddress, 1)
Else
Call writealong ("Warrock", &HAddress,1166127104)
End If
End Sub

And in the checkbox, as normal, this:

Private Sub chkGlasswall_Click()
If chkGlasswall.Value = 1 Then
tmrGlasswall.Enabled = True
Else
tmrGlasswall.Enabled = False
End If
End Sub

Is it right?

Another question, this on hacks in general.

I want to put name hack in red when it's not active and in green when it is.
Let's make an example with glasswall.

Private Sub chkGlasswall_Click()
If chkGlasswall.Value = 1 Then
...
Else
...
End If
End Sub

What do I need to put where the ... are?

Thanks in advance:

~Matemaxâ„¢