Вот код:
- Код: Выделить всё
Sub Start(ByVal Hwnd As Long, ByVal WinHeight As Long, ByVal WinWidth As Long, ByVal Koord As String)
frmMain.ScaleHeight = WinHeight
frmMain.ScaleWidth = WinWidth
SetParent frmMain.Hwnd, Hwnd
frmMain.Show vbModeless ' vbModal без разницы, но хочется хотя бы vbModeless
End Sub
Посоветуйте, что сделать?