attivare il bloc num

[BOYROMA1]

in un programma mi si disattiva l bloc num

ce' un codice aci qualcosa unkeypress per attivarlo?

aiuto

[Pedar]

questo funziona in tutti i windows vecchia generazione (95,98,ME)
io ho win 2000 e quindi non sono riuscito a provarlo, ma prima (col vecchio 98) se nn sbaglio, funzionava benone

Private Function CapsLock() As Integer
    	CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function


Private Sub Form_Load()
    	If CapsLock() = 1 Then Label1 = "On" Else Label1 = "Off"
End Sub


Private Sub cmdToggle_Click()
    	GetKeyboardState kbArray
    	kbArray.kbByte(VK_CAPITAL) = IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)
    	SetKeyboardState kbArray
    	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub


Private Sub cmdTurnOn_Click()
    	GetKeyboardState kbArray
    	kbArray.kbByte(VK_CAPITAL) = 1
    	SetKeyboardState kbArray
    	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub


Private Sub cmdTurnOff_Click()
    	GetKeyboardState kbArray
    	kbArray.kbByte(VK_CAPITAL) = 0
    	SetKeyboardState kbArray
    	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub

spero sia quello che cercavi...(modifica anche capslock)
ciao Pedar