半透明のWINDOWを作って、マウスでDrug-Dropして、他アプリのSCREEN座標を取得したい

Question

#相談内容

とあるRPAを自作しています。

外部アプリケーションを動かしますが、windowsのＤＰＩが96(100%),144(150%)とか
違うためか、思った場所でマウスクリックできません。

そこでＲＰＡにマウス座標の校正をさせるために、
エリア側で微調させるＵＩを設けたいと考えています。

#構想

　ユーザーに、四角（半透明のWINDOW）で指定するようにしたいと思います。

　

#VBA

現在、USERFORMで半透明のWINDOWを作りましたが、
このサイズを右下コーナーのドラッグで動かす機能を足したいと思います。

#質問

　ドラッグして動かすには何を足せばいいでしょうか？

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long
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
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOSIZE As Long = &H1&
Private Const SWP_NOMOVE As Long = &H2&

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Sub SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Sub SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long)
Private Declare Sub DrawMenuBar Lib "user32" (ByVal hwnd As Long)

Private Const GWL_EXSTYLE As Long = 0 ' _0 &= -20&
Private Const WS_EX_LAYERED As Long = 0 '&H80000
Private Const LWA_ALPHA As Long = 0 '&H2&
Private Const WS_THICKFRAME = &H40000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000

Private Sub UserForm_Initialize()

Dim myFrame As MSForms.Control
Dim myHwnd As Long
Dim myWindowLong As Long
Dim myAlpha As Long

myAlpha = 150
Set myFrame = Me.Controls.Add("Forms.Frame.1")
myHwnd = GetParent(GetParent(myFrame.[_GethWnd]))
Me.Controls.Remove myFrame.name
Set myFrame = Nothing
myWindowLong = GetWindowLong(myHwnd, GWL_EXSTYLE)
myWindowLong = myWindowLong Or WS_EX_LAYERED Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong myHwnd, GWL_EXSTYLE, myWindowLong
SetLayeredWindowAttributes myHwnd, 0&, myAlpha, LWA_ALPHA

With Me
.Top = 0
.Left = 0
.Width = 200
.Height = 150

End With

Call SetWindowPos(GetForegroundWindow, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Sub

Answer 1

結局、Ｃ＃で書くことにしました。
参考ソースコード

using System.Drawing;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace ExcelVbaExt
{
    [ComVisible(true)]

    [ClassInterface(ClassInterfaceType.None)]
    public partial class Form1 : Form
    {
        public Form1() => InitializeComponent();
    }

    public partial class TransprtScrcn : Form1
    {
        public TransprtScrcn()
        {
            InitializeComponent();
            this.BackColor = Color.Red;
            this.TransparencyKey = Color.Red;
        }

        protected override void OnPaintBackground(PaintEventArgs e)
        {
            e.Graphics.FillRectangle(Brushes.Red, e.ClipRectangle);
        }
    }
}

Sub test()

Dim DLL As ExcelVbaExt.TransprtScrcn
Set DLL = New ExcelVbaExt.TransprtScrcn

DLL.show
DLL.dispose

End Sub