'-------Hauptformular---------
 
Dim ShowProgressThread as Threading.Thread
 
Private Sub Connection ()
 
ShowProgressThread = New Threading.Thread(AddressOf ShowProgressform)
ShowProgressThread.Start()
 
'Verbindungsversuch
Try
FTP.Connection
Catch ex as Exception
End Try
 
...
 
End Sub
 
'------------Thread-----------
Private Sub ShowProgressform()
 
'Formular 
        Dim frmProgress As New frmProgressStatus
          frmProgress.Show()
 
        Do
         'Wartet auf den Abbruch von aussen
        Loop
    End Sub