Private Sub ETCAStart()
   If ETCAWin IsNot Nothing Then
      If Not CBool(IsWindowVisible(ETCAWin.Handle)) Then
          ShowWindow(ETCAWin.Handle, 1)
          If Not CBool(IsWindowVisible(ETCAWin.Handle)) Then Exit Sub
      Else
          ShowWindow(ETCAWin.Handle, 1)
          If CBool(IsWindowVisible(ETCAWin.Handle)) Then Exit Sub
      End If
   End If
 
   ETCA.StartInfo.WorkingDirectory = PointOfKalk & "ETCASIE"
   PrgDrive.Text = ETCA.StartInfo.WorkingDirectory
 
   With ETCA.StartInfo
       .FileName = "cmd"
       .Arguments = "/K""GEATEC.EXE ETCA"""
       .CreateNoWindow = False
       .UseShellExecute = True
   End With
 
   ETCA.Start()
 
   Dim hwnd As IntPtr = IntPtr.Zero
 
   System.Threading.Thread.Sleep(500)
   Application.DoEvents()
 
   hwnd = ETCA.MainWindowHandle
 
   Try
      ETCAWin.AssignHandle(ETCA.MainWindowHandle)
   Catch ex As Exception
      '??????????
   End Try
 
   SetParent(hwnd.ToInt32, ETCAPanel.Handle.ToInt32)
 
   System.Threading.Thread.Sleep(300)
 
   Application.DoEvents()
 
   SetWindowTextW(ETCAWin.Handle, "ETCA Siemensversion")
   SetWindowPos(ETCAWin.Handle, 0, 0, 0, 0, 0, &H1 + &H40)
 
   System.Threading.Thread.Sleep(200)
   Application.DoEvents()
 
End Sub