Класс-модуль clsPopup:

'=============================================================================================
'=============================================================================================
'
'                    Класс-модуль для управления окном типа Hint
'
' версия от:  10 . 02 . 04 
'=============================================================================================
'=============================================================================================
Option Compare Database
Option Explicit

' функ. API
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetClipRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function IntersectClipRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SelectClipRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function OffsetClipRgn Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long


' структуры API
Private Type RECT
  left As Long
  top As Long
  right As Long
  bottom As Long
End Type
' константы API
Private Const WS_CHILD = &H40000000  ' окно является дочерним
Private Const WS_BORDER = &H800000 ' окно с рамкой
Private Const WS_POPUP = &H80000000  ' окно является всплывающим
Private Const WS_CLIPSIBLINGS = &H4000000 ' запрещает дочернему окну рисовать поверх другого дочернего окна
Private Const WS_EX_TOOLWINDOW = &H80  ' окно представляет собой кнопку, содержащую растр вместо текста.
                                       ' Т.о. окно с таким стилем не попадет на панель задач
Private Const WS_EX_TRANSPARENT = &H20 ' окно является прозрачным и не скрывает окна под собой
Private Const GWL_STYLE = (- 16 )
Private Const GWL_HINSTANCE = (- 6 )
Private Const GWL_WNDPROC = - 4 
Private Const SW_NORMAL =  1  ' отобразить окно
Private Const SW_HIDE = 0   ' скрыть окно
Private Const WM_NCPAINT = &H85
Private Const WM_SIZE = &H5
Private Const SIZE_RESTORED = &H0

Private Const RDW_INVALIDATE = &H1
Private Const RDW_INTERNALPAINT = &H2
Private Const RDW_ERASE = &H4
Private Const RDW_VALIDATE = &H8
Private Const RDW_NOINTERNALPAINT = &H10
Private Const RDW_NOERASE = &H20
Private Const RDW_NOCHILDREN = &H40
Private Const RDW_ALLCHILDREN = &H80
Private Const RDW_UPDATENOW = &H100
Private Const RDW_ERASENOW = &H200
Private Const RDW_FRAME = &H400
Private Const RDW_NOFRAME = &H800
' для RedrawWindow
Private Const API_TRUE = 1&




' свойства класса
Private vchWnd As Long        ' hWnd нашего окна
Private vcbBorder As Boolean  ' наличие border
Private vclX As Long   ' положение окна, X
Private vclY As Long   ' положение окна, Y
Private vclWidth As Long   ' размер окна, по X
Private vclHeight As Long   ' размер окна, по Y


Private Sub Class_Initialize()
  Dim hWndAccess As Long
  Dim hInst As Long
  
  ' hWnd гл. окна Access
  hWndAccess = Application.hWndAccessApp
  ' получение hInstance Access
  hInst = GetWindowLong(hWndAccess, GWL_HINSTANCE)
  ' инициал. свойства окна(и нашего класса)
  vclX = 100
  vclY = 80
  vclWidth = 50
  vclHeight = 25
  vcbBorder = True
  ' создание окна
  vchWnd = CreateWindowEx(WS_EX_TOOLWINDOW,  "STATIC" ,  "привет" , WS_POPUP Or WS_BORDER, vclX, vclY, vclWidth, vclHeight, hWndAccess,  0 , hInst, ByVal  0 &)
  
End Sub

Private Sub Class_Terminate()
  ' уничтожаем наше окно
  If vchWnd > 0 Then _
    DestroyWindow vchWnd
End Sub

'  -------------------------------------------------------------------------
 
'            МЕТОДЫ  КЛАССА
'  -------------------------------------------------------------------------
 
Public Sub Show()
  ' показать окно
   ShowWindow vchWnd, SW_NORMAL
End Sub

Public Sub Hide()
  ' crhsnm окно
   ShowWindow vchWnd, SW_NORMAL
End Sub

Public Sub MoveSize(x As Long, y As Long, width As Long, height As Long)
  ' сохраняем в свойствах класса
  vclX = x
  vclY = y
  vclWidth = width
  vclHeight = height
  ' передвигаем окно
  MoveWindow vchWnd, vclX, vclY, vclWidth, vclHeight,  1 
End Sub

' -------------------------------------------------------------------------
'            СВОЙСТВА  КЛАССА
' -------------------------------------------------------------------------

' установка/получение рамки
'-----------------
Public Property Let Border(ByVal bolBorder As Boolean)
  Dim lStyle As Long
  Dim hRg As Long, hdc As Long
  
  If vchWnd > 0 Then
    ' получаем текущий стиль окна
    lStyle = GetWindowLong(vchWnd, GWL_STYLE)
    ' устанав. нужный бит
    If bolBorder Then
      lStyle = lStyle Or WS_BORDER
    Else
      lStyle = lStyle And (Not WS_BORDER)
    End If
    ' устанвл. новый стиль
    lStyle = SetWindowLong(vchWnd, GWL_STYLE, lStyle)
    
    '---------------------------------------------
    ' очередной вариант: через отправку WM_NCPAINT
    '---------------------------------------------
'    hdc = GetWindowDC(vchWnd)
'    hRg = CreateRectRgn(19, 19, 51, 21)
'    Call SelectClipRgn(hdc, hRg)
'    ' посылаем WM_NCPAINT сообщение
'    Call SendMessage(vchWnd, WM_NCPAINT, hRg, 0&)
'    ' освобождаем память
'    ReleaseDC vchWnd, hdc
'    DeleteObject hRg
     
    ' ---------------------------------------------
 
    ' или такой вариант: через RedrawWindow
    ' ---------------------------------------------
 
    Call RedrawWindow(vchWnd, ByVal  0 &, ByVal  0 &, RDW_INVALIDATE Or RDW_FRAME Or RDW_UPDATENOW)
   
    ' обновляем окно (на всякий случай)
    Call InvalidateRect(vchWnd, ByVal 0&, API_TRUE)
    Call UpdateWindow(vchWnd)
  
    ' запоминаем выбранный border
    vcbBorder = bolBorder
  End If
End Property

Public Property Get Border() As Boolean
  Border = vcbBorder
End Property

' получение hWnd
' -----------------
 
Public Property Get hwnd() As Long
  hwnd = vchWnd
End Property

' получение координат окна
' -----------------
 
Public Property Get x() As Long
  x = vclX
End Property
Public Property Get y() As Long
  y = vclY
End Property
Public Property Get width() As Long
  width = vclWidth
End Property
Public Property Get height() As Long
  height = vclHeight
End Property

************************************************************
************************************************************
************************************************************
 Код  Формы - frmMain

Option Compare Database
Option Explicit

' объявляем глобальную переменную -
' - наш экземпляр класса - POPUP окна
Dim a As clsPopup

Private Sub Кнопка0_Click()
  ' создаем окно
  Set a = New clsPopup
  ' покажем окно
  a.Show
End Sub

Private Sub Кнопка3_Click()
  ' уничтожаем окно
  Set a = Nothing
End Sub

Private Sub Кнопка4_Click()
  ' убираем рамку у окна
  a.Border = False
End Sub

Private Sub Кнопка5_Click()
  ' передвигаем форму НЕ меняя размеры
  Call a.MoveSize(a.x + 30, a.y + 30, a.width, a.height)
End Sub

Private Sub Кнопка6_Click()
   ' НЕ передвигаем форму, а просто МЕНЯЕМ размеры
  Call a.MoveSize(a.x, a.y, a.width +  5 , a.height)
End Sub