Prueba con esto:

Option Explicit
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_THICKFRAME  As Long = &H40000
 
Private Sub Form_Load()
    ' Vivan las ranas! :D
    SetWindowLong Me.hwnd, _
                  GWL_STYLE, _
                  GetWindowLong(Me.hwnd, GWL_STYLE) _
                  And Not WS_CAPTION And Not WS_THICKFRAME
End Sub

DoEvents!

Que buena pinta Lenadro!
De esto es de lo que me hablabas hace días por el msn!
Más tarde lo miro y posteo

DoEvents!

Eso pensé yo Black!
Con una clase te ahorras ingresar el hWnd varias veces, pero yo solo lo veo rentable si hay varias funciones que lo van a utilizar.
Si no haría algo parecido a como haces agus0 :

Public Function Funcion(ByVal lHandle As Long) as Long

Así evitamos esto :

Dim C as Integer 'As Long   
     C = fFrm.hWnd

Y lo llamaríamos así :

Debug.Print Funcion(Me.hWnd)

DoEvents!

Tengo un nuevo problema :
Segun el manual http://goo.gl/dh6bt
Al crear una partida para jugar online, como se explica en el ultimo punto da error a mis amigos
Osea, sigo los pasos, les doy la ip que saco de la consola y el puerto 27015...
Se les queda cargando sin avanzar y les da error y dice que es imposible conectar.... -.-
Alguien sabe lo que me pasa?

DoEvents!

.
Comprendo, gracias Karcry!

PD: Vaya desastre de respuestas doy a partir de las 3 am ; a partir de esa hora leo solo la última linea....

DoEvents!

.
Una pregunta : para que el CallNextHookEx en MouseProc ?

DoEvents!

Perdoname, no lei bien la pregunta...
Con un Hook se puede hacer, mi amigo Dessa estara orgulloso de mi...
Para ello debes sacar el Hwnd del control externo y lo metes en la variable lHwnd, te dejo un ejemplo:

Option Explicit
 
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
 
Private Const WH_MOUSE_LL                           As Long = 14&
 
Private Const WM_LBUTTONDOWN                        As Long = &H201
 
Public lHwnd                                        As Long
Dim hMouseHook                                      As Long
 
 
Public Sub StartMouseHook()
    If hMouseHook = 0 Then
        hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0&)
    End If
End Sub
 
Public Sub StopMouseHook()
    If hMouseHook <> 0 Then
        Call UnhookWindowsHookEx(hMouseHook)
        hMouseHook = 0
    End If
End Sub
 
Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    If wParam = WM_LBUTTONDOWN And (lHwnd = WindowFromPoint(lParam.X, lParam.Y)) Then
        Debug.Print lParam.X; " <--> "; lParam.Y
    End If
End Function

DoEvents!

Google & Buscador del foro!!!!! 

http://foro.elhacker.net/programacion_visual_basic/usuario_y_contrasena_en_vb6-t209034.0.html;msg993301#msg993301

DoEvents!

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "x -> " & X & "  ; y -> " & Y
End Sub

DoEvents!

@.DarkStyle

http://goo.gl/IWXBz !!!!!!!!

DoEvents!