Форма и внутрение объекты?

Private Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Dim z As POINTAPI
 
Private Sub Form_Load()
    Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
    GetCursorPos z
    screendc = CreateDC("DISPLAY", "", "", 0&)
    'замените текст Text1 = Hex(GetPixel(screendc, z.x, z.y))
    'если вы хотите увидеть Hex-значение цвета
    Text1 = GetPixel(screendc, z.x, z.y)
    Picture1.BackColor = GetPixel(screendc, z.x, z.y)
    DeleteDC (screendc)
End Sub

deskhdc = GetDC(HenTek) ' ïîëó÷àåì êîíòåêñò óñòðîéñòâà
 rgbVal = GetPixel(deskhdc, 425, 510): retval = ReleaseDC(HenTek, deskhdc) ' Îñâîáîæäàåì ðåñóðñû, âçÿòûå ó êîíòåêñòà óñòðîéñòâà

u = SetWindowPos(nForm.hWnd, -1, Xa, Ya, nForm.Width / Screen.TwipsPerPixelX, nForm.Height / Screen.TwipsPerPixelY, ByVal &H20)

Xm = Screen.Width / Screen.TwipsPerPixelX
Ym = Screen.Height / Screen.TwipsPerPixelY

Xm = Screen.Width / Screen.TwipsPerPixelX
Ym = Screen.Height / Screen.TwipsPerPixelY

Screen.Width

Private Sub Form_Load()
    Debug.Print Screen.Width & " - øèðèíà â òâèïàõ"
    Debug.Print Screen.Height & " - âûñîòà â òâèïàõ"
    Debug.Print Screen.Width / Screen.TwipsPerPixelX & " - øèðèíà; â ïèêñåëÿõ"
    Debug.Print Screen.Height / Screen.TwipsPerPixelY & " - âûñîòà â ïèêñåëÿõ"
End Sub