Foro de elhacker.net

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = 1
Private Const SWP_NOMOVE = 2
Private Const HWND_NOTOPMOST = -2
Private 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

Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

    Form1.Width = Screen.Width
    Form1.Height = Screen.Height

'el frm centrado "CenterScreen" y al cargar q esté

en el load:
'creo k habria q ponerlo en el load aparte de en el timer pq sino, aunq esté centrado al empezar el timer, c agrandaria a la drcha y hacia abajo.

Form1.Width = Screen.Width
Form1.Height = Screen.Height

en un timer:
Form1.Width = Screen.Width
Form1.Height = Screen.Height

'Módul Simulador barra de títol
'MazarD@gmail.com

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private varbooleana As Boolean
Private xanterior As Single
Private yanterior As Single

Public Sub MovBarra(ByRef FormularI As Form, ByVal Boto As Integer, ByVal x As Single, ByVal y As Single)
Dim PosPunt As POINTAPI
If Boto = 1 Then
    If varbooleana = True Then
        xanterior = x
        yanterior = y
        varbooleana = False
    End If
    GetCursorPos PosPunt
    FormularI.Left = (PosPunt.x * Screen.TwipsPerPixelX) - xanterior
    FormularI.Top = PosPunt.y * Screen.TwipsPerPixelY - yanterior
  
Else
    varbooleana = True
End If
End Sub

Para utilizarlo creas un label que hará el papel de barra de título y:
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MovBarra Form1, Button, x, y
End Sub