Hello ...............
Создан обьект, свойства Left,Rigth недоступны
set A = New ClassA
A.Left - отсутствуют

Чем правильно уставновить координаты, полагаю через SendMessageA
Но не знаю полного синтаксиса и типа
Подкиньте код или ссылку .....
Спасибо !

Момент - но эта функция для работы с окнами ?????
Или это не имеет значения в моем случае тип обьекта - ProgressBar

Что не так делаю ??????????????
Указатель на обьект возвращет 0
B.hwnd = 0 - а что необходимо еще сделать ?

Private Type BarRect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOACTIVATE = &H10

Private Const SW_NORMAL = 1
Private Const SW_MINIMIZE = 2
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOW = 9

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As BarRect) 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 Sub Command1_Click()
Dim H As Long, R As BarRect, B As ProgressBar
H = GetActiveWindow
Call GetWindowRect(H, R)
Set B = New ProgressBar
MsgBox B.hwnd - здесь hwnd = 0
Call SetParent(B.hwnd, H)
Call SetWindowPos(B, 0, 5, 5, 50, 50, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE)
Call ShowWindow(B, SW_SHOW)
MsgBox Format(Hex(H), "00000000") & " " & R.Left & " " & R.Top & " " & R.Right & " " & R.Bottom
Set B = Nothing
End Sub

Конструкция Controls.Add(New ProgressBar) у меня не работает ?????

А такой синтаксис требует лицензии на обьект

Option Explicit
Private WithEvents btnObj As CommandButton
Private WithEvents cmdBar As ProgressBar
Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub
Private Sub Command1_Click()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
btnObj.Visible = True
btnObj.Width = 2000
btnObj.Caption = "Hello"
btnObj.Top = 1000
btnObj.Left = 1000
MsgBox "Created " & Controls(1).Name
MsgBox "Create ProgressBar"
Licenses.Add "MSComctlLib.ProgCtrl.2", "????????????" - надо полагать здесь
Set cmdBar = Controls.Add("MSComctlLib.ProgCtrl.2", "cmdBar")
cmdBar.Visible = True
End Sub

Факт - согласен ............
Смотрю в книгу видим .............EXCEL

Спасибо - дочитал ......

Остаеться внедрить созданный обьект в "OutLook".СommandBar
Сейчас попробую.............

Спасибо господа - буду учиться читать внимательно

Ну не все ..... так хорошо .....

Здесь получаеться несовместимость передаваемых типов
Добавление элемента к обьекту CommandBar предполагает набор
других типов ?
Controls.Add( Type, Id, Parameter, Before, Temporary )
CommndBars - это некий дочерный обьект,
.Add - его локальный метод (вряд-ли он унаследован от родителя)

А как выйти на родителя - у него наверняка будет классические параметры Add ??
Верно - нет ?

Private cmBars As CommandBar
Private WithEvents obPBar As ProgressBar

Private Sub btExes_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Set obPBar = cmBars.Controls.Add("MSComctlLib.ProgCtrl.2", "obPBar") - ошибка типов
obPBar.Left = 1
obPBar.Top = 1
obPBar.Height = 23
obPBar.Width = 120
obPBar.Visible = True
obPBar.Value = 50
End Sub

Господа никто не подскажет .... ?
Менять подход (обьект) ............?