Option Compare Database

Public Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
                    ByVal lpWindowName As String) As Long
Public Declare Function SetFocus _
        Lib "user32.dll" (ByVal hWnd As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Системный_номер_DblClick(Cancel As Integer)
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
hhh1 = SetForegroundWindow(hhh)
hhh1 = Module1.SetFocus(hhh)
SendKeys "{F3}", True
SendKeys "2", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys CStr(Me.Системный_номер), True
SendKeys "%{v}", True
End Sub

Public Const SW_NORMAL = 1
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

...
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
hhh1 = SetForegroundWindow(hhh)
hhh1 = Module1.SetFocus(hhh)
ShowWindow hhh, SW_NORMAL
...

hhh = FindWindow("Afx:00400000:8:00010003:00000000:000504E9", vbNullString)

 Public Const MaxLen = 128
 Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
 (ByVal hWnd As Long, _
 ByVal lpClassName As String, _
 ByVal nMaxCount As Long) As Long

Public Function ClassName(hWnd As Long)
Dim strBuffer As String
strBuffer = Space(MaxLen)
intCount = GetClassName(hWnd, strBuffer, MaxLen)
ClassName = Trim(strBuffer)
End Function

...
dim hhh as long
hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )")
Debug.Print ClassName(hhh)
...