"Float" program

Hej, jeg er interesseret i at lave et program der "floater" konstant.. dvs den er på skærmen ligemeget hvad! F.eks et billede... Så selv om man går ind i programmer osv, kan man stadig se billedet...

Så det jeg egentlig ønsker at vide, er at hvordan jeg f.eks koder sådan et billede floater konstant... Det skal være et normalt vindue, asso et windows vindue.. man skal bare se billedet.

og så om det er muligt at styre hvor den skal være.. Der findes jo f.eks koordinater... 0,0 er f.eks centreret...


- Kode til at floate
- Kode til at floate billede, uden at have et vindue...
- Koodinere billedet

Jeg håber der er nogen der kan hjælpe!

(15 points til hjælpen! )

Kode 

Declare Function SetWindowPos Lib "user32" (ByVal hwnd _
As Long, ByVal hWndInsertAfter_ As Long, ByVal X _
As Long, ByVal y_ As Long, ByVal cx As Long, ByVal cy _
As Long, ByVal wFlags_ As Long) As Long

Const conHwndTopmost = -1
Const conHwndNoTopmost = -2
Const conSwpNoActivate = &H10
Const conSwpShowWindow = &H40

Public Function Always_On_Top(ByVal H, FrmX As Long, _
FrmY As Long, Hght As Long, Wdth As Long, YesAOT As Boolean)
If YesAOT = True Then
SetWindowPos H, conHwndTopmost, FrmX, FrmY, Wdth, Hght, _
conSwpNoActivate
ElseIf YesAOT = False Then
SetWindowPos H, conHwndNoTopmost, FrmX, FrmY, Wdth, Hght, _
conSwpShowWindow
End If
End Function

Public Sub Alw_top(Parent As Form, Enabled As Boolean)

Call Always_On_Top(Parent.hwnd, Parent.Left / Screen.TwipsPerPixelX, _
Parent.Top / Screen.TwipsPerPixelY, Parent.Height / Screen.TwipsPerPixelY, Parent.Width / Screen.TwipsPerPixelX, Enabled)

End Sub

Kode 

Alw_Top form1, True