Museklik\'s til form

Hej
Er der en som kan fortælle mig hvordan man sender museklik\'s til et vindue uden at give det fokus eller aktivere det ?

Jeg har prøvet med denne metode men kan ikke få det til at fungere er der nogen der succesfuldt har fået metoden til at lykkedes ?

Dim xcoord As Long, ycoord As Long
Dim packed As Long
Dim xhwnd As Long
Dim retval As Long
xhwnd = FindWindow(vbNullString, \"vindue caption\")
retval = GetWindowRect(xhwnd, Rect)
xcoord = 790 + Rect.left
ycoord = 9 + Rect.top
packed = (ycoord * &H10000) + xcoord
xcoord = 790 + Rect.left
ycoord = 9 + Rect.top
packed = (ycoord * &H10000) + xcoord
retval = SendMessage(xhWnd, WM_LBUTTONDOWN, ByVal CLng(MK_LBUTTON), ByVal packed)


//Kristian - Den som hjælper mig med det her vil forevigt tage imod kredits som værende en VB-gud i mine øjne :)