Public Function GetHwnd(Var1 As Object, Optional Var2 As Boolean = False) As Long
    Dim Var3 As Long
    Dim Var4 As Long
    Dim Var5 As Long
    Dim PosX As Long
    Dim PosY As Long
    PosX =  10                                          'Расположение формы на листе
    PosY =  45                                         'Расположение формы на листе
    Var3 = FindWindow("ThunderDframe", Var1.Caption)
    If Var2 Then
        Var4 = GetWindowLong(Var3, GWL_STYLE)
        Var4 = Var4 And Not WS_CAPTION And Not WS_BORDER
        Var5 = SetWindowLong(Var3, GWL_STYLE, Var4)
        Var5 = SetWindowLong(Var3, GWL_EXSTYLE,  0 )
        SetWindowPos Var3,  0 , PosX, PosY,  0 ,  0 , SWP_NOSIZE Or SWP_NOOWNERZORDER Or SWP_NOZORDER Or SWP_FRAMECHANGED
    End If
    GetHwnd = Var3
End Function