La idea es que cada uno de nosotros pueda borrar cada uno de nuestros mensajes

Yo creo que seria bueno, asi nos ahorrariamos los doble y hasta triple post

Por ahora no le veo lo malo

Ahi:
http://www.google.co.ve/search?hl=es&q=DirectUIHWND&meta=&btnG=Buscar+con+Google
http://www.google.co.ve/search?hl=es&q=hDirectUI&meta=&btnG=Buscar+con+Google
http://www.google.co.ve/search?hl=es&q=IMWindowClass&meta=&btnG=Buscar+con+Google

Obviamente y aunque duela es mejor C Aunque con VB se pueden hacer grandes cosas con C se pueden hacer grandes cosas comparadas con las grandes cosas de VB.

Yo programé en VB en mis inicios durante 8 meses aprox y ahora estoy con C llevo como 1 mes y la diferencia se nota.

---

Aprendes a hacer todo muy superficial pero nunca sabes como funciona todo desde adentro. Con C te das cuenta que una ventania no es darle Proyectos y nuevo. Sino programación (Aunque en Dev se pueden crear automaticamente).

Aca tienes un archivo con todo lo que se refiera a Win32Api puedes encontrar casi todas las variables y constantes de las apis.

http://www.mediafire.com/?lxboby2ztp3

Para SendMenssage busca las constantes con el prefijo WM_ (WindowMessage)
Ejemplo:
WM_PAINT

Prueba con esto para que acabes con todos los procesos que quieras:

[Source] Conseguir privilegios (AdjustTokenPrivileges)
http://foro.fire-software.net/index.php/topic,381.0.html

Eso me sale al hacer lo que tu dices
"Name conflict with existing modules or project"

Me tira error en esta linea: Set objWinSock = New MSWinsockLib.Winsock

Me tira error Activex.

¿Como hacer para que la variable no se ejecute?

A eso se refiere él

Aca tienes, lo acabo de hacer si tiene errores me avisas

Y recuerda abrir la calculadora

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Form_Load()
Dim Handle As Long
Dim Buff As String
Dim res As Integer
Buff = Space(255)
Handle = FindWindow("sciCalc", vbNullString) // El 2do parametro se refiere al titulo de la ventana, pero si eso es lo que queremos averiguar no tiene ningún sentido
res = GetWindowText(Handle, Buff, Len(Buff))
MsgBox Buff
End Sub