Función AP de programación VB (¡Urgente!) Función de declaración privada SetWindowPos Lib "user32" (ByVal hwnd As Long)

Función de declaración privada 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 ) Siempre

Private Sub Form_Load()

SetWindowPos Me.hwnd, -1&, 0&, 0&, 0&, 0&, 0&, 0&, 0&, 3&'Top Display

Me.ScaleMode = 3 'Usar ScaleModeScaleMode = 3 'Usar píxeles como unidad de escala

MsgBox Screen.Width / 15 & "*" & Screen.Height / 15, , " Screen resolución" 'Derivación de la resolución de pantalla

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Caption = X & Chr(32) & Y

End Sub