Visual Basic.NET - Programa en ejecucion constante

Hola!

Tengo un problema, quiero hacer un programita muy sencillo, que simplemente me avise con un msgbox cuando voy a escribir y tengo presionada la tecla de mayúsculas.
No hace falta que tenga interfaz grafica, simplemente un icono que lo lance y se quede el mismo iconito en la barra junto a la hora del sistema como otros muchos programas.
Si alguien me puede orientar lo agradezco mucho.

Pd. trabajo con VB.NET 2005

Gracias

Hola, te he echo una pequeña "demo" para que veas como va. Luego lo adaptas a tu solucion.

Primero al Form le añadimos un NotifyIcon y en la propiedad Icon del susodicho le pones un icono, si no, no lo veras en la bandeja del sistema.

ESTE ES EL CODIGO COMPLETO:
-----------------------------------------------------------------------

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

Private Const SC_MINIMIZE = &HF020&

' Se sobreescribe el manejador de mensajes de la forma para detectar cuando se minimiza, si no quieres declarar la constante SC_MINIMIZE al verificar los mensajes, puedes replazarla por el valor directo
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
If CLng(m.WParam.ToInt32) = SC_MINIMIZE Then
NotifyIcon1.Visible = True
ShowInTaskbar = False
End If
End Sub

'Ahora creamos la funcion que detecta la pulsacion de teclas a nivel de windows
' y le especificamos que avise cuando la tecla Bloq. May. este activada.

Private Sub CapturarTeclas()
Dim intAscii As Long
Dim Retorno As Long
Dim respuesta As DialogResult

For intAscii = 8 To 255
Retorno = GetAsyncKeyState(intAscii)
If Retorno = -32767 Then
If My.Computer.Keyboard.CapsLock Then
respuesta = MessageBox.Show("Tecla Bloqueo Mayusculas esta activada", _
"Advertencia", _
MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, _
MessageBoxDefaultButton.Button2)
If respuesta = Windows.Forms.DialogResult.OK Then
MsgBox("Desactiva la Tecla Bloqueo Mayusculas")
End If
End If
End If
System.Windows.Forms.Application.DoEvents()
Next
End Sub

'En la carga de Form principal llamamos a la funcion de detecion de teclas y
' especificamos que directamente se vaya a la bandeja del sistema.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Do
Call CapturarTeclas()
Loop
Me.WindowState = FormWindowState.Minimized
ShowInTaskbar = False
End Sub

' Estra funcion hace visible de nuevo el Form,

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

ShowInTaskbar = True
WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
End Sub

End Class
----------------------------------------------------------------------------------------

Si no entiendes algo pregunta y si te sirve el codigo, porfavor contesta diciendo que te sirve, porque hay gente que pregunta utiliza las respuestas y ni siquiera da las gracias. Ademas otros usuarios sabran si la respuesta es valida y si pueden usarla o no.

Un saludo, Antonio F. Gutierrez

Muchas gracias, voy a ponerla en practica lo antes posible y te digo si meha valido, Gracias!

Genial! Me ha venido de perlas, el codigo funciona perfectamente, además lo he modificado un poco para que en vez de sacar un msgbox haga una señal sonora con console.beep.

Muchas gracias :D

Me alegro de que te haya servido.

Un Saludo, Antonio F. Gutierrez