Как нарисовать прямоугольник в VBA Excel

Option Explicit
Public x1, y1, x2, y2, x3, y3, x4, y4, m, X, Y
Dim Coord As New Collection
Const maxPoint = 4
Private Declare Function dwLineTo Lib "gdi32" Alias "LineTo" _
    (ByVal hdc As Long, ByVal X As Integer, ByVal Y As Integer) As Long
    Private Declare Function dwMoveTo Lib "gdi32" Alias "MoveToEx" _
    (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, _
    ByVal lpPoint As Long) As Long
 
Private Sub UserForm_Click()
m = m + 1
If m > 4 Then
Else
 
 
End If
End Sub
 
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Coord.Add X: Coord.Add Y
 
If Coord.Count = maxPoint * 2 Then
 
 
MyPaint
End If
 
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 
x1 = X
 
y1 = Y
 
End Sub
 
Private Sub MyPaint()
SetDrawStart X, Y
Call dwMoveTo(hdc, Coord.Item(1) = X, Coord.Item(1) = Y, 0)
Call dwLineTo(hdc, Coord.Item(2) = X, Coord.Item(2) = Y)
 
Call dwMoveTo(hdc, Coord.Item(2) = X, Coord.Item(2) = Y, 0)
Call dwLineTo(hdc, Coord.Item(3) = X, Coord.Item(3) = Y)
 
Call dwMoveTo(hdc, Coord.Item(3) = X, Coord.Item(3) = Y, 0)
Call dwLineTo(hdc, Coord.Item(4) = X, Coord.Item(4) = Y)
 
Call dwMoveTo(hdc, Coord.Item(4) = X, Coord.Item(4) = Y, 0)
Call dwLineTo(hdc, Coord.Item(1) = X, Coord.Item(1) = Y)
 
Dim i As Integer
Dim j As Integer
Dim Result As String
For i = 1 To Coord.Count Step 2
j = j + 1
Result = Result & "Точка " & j & ": X=" & Coord.Item(i) & _
" Y=" & Coord.Item(i + 1) & vbCrLf
Next i
MsgBox Result
End Sub

Option Explicit
Private Type POINTAPI
    x As Double
    Y As Double
End Type
 
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim Coord As New Collection
Const maxPoint = 4
 
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    Coord.Add x: Coord.Add Y
    If Coord.Count = maxPoint * 2 Then MyPaint
End Sub
 
 
Private Sub MyPaint()
Dim hds, hWnd
Dim pt As POINTAPI
 
Dim i As Integer
Dim j As Integer
Dim Result As String
For i = 1 To Coord.Count Step 2
    j = j + 1
    Result = Result & "Точка " & j & ": X=" & Coord.Item(i) & _
    " Y=" & Coord.Item(i + 1) & vbCrLf
Next i
MsgBox Result
 
hWnd = FindWindow("thunderDFrame", Draw.Caption)
hds = GetDC(hWnd)
 
 
 MoveToEx hds, Coord.Item(1), Coord.Item(2), pt
 LineTo hds, Coord.Item(3), Coord.Item(4)
 
 MoveToEx hds, Coord.Item(3), Coord.Item(4), pt
 LineTo hds, Coord.Item(5), Coord.Item(6)
 
 MoveToEx hds, Coord.Item(5), Coord.Item(6), pt
 LineTo hds, Coord.Item(7), Coord.Item(8)
 
 MoveToEx hds, Coord.Item(7), Coord.Item(8), pt
 LineTo hds, Coord.Item(1), Coord.Item(2)
 
End Sub

hWnd = FindWindow("thunderDFrame", Draw.Caption)

hWnd = FindWindow("thunderDFrame", frmDraw.Caption)