Imports System.IO
Imports System.Net.Mail
Imports System.Net
Imports System.Globalization
 
 
Public Class Form1
    ' !!! 
    ' *************************************************************************
    ' ************************
    ' !!! Dieses Programm DARF das HAUS NICHT VERLASSEN  !!!
    ' !!! Die Passworte und Zugänge sind im Klartext hinterlegt
    ' !!! 
    ' *************************************************************************
    ' ************************
 
    Dim TestModus As Integer = 1
 
    'Abfrage einer Datei auf einem anderen Rechner
    Dim strZielLaufwerk As String = "C:"
    Dim strZielPfad As String = "\ZFHS\Control\Bestellungen\"
    Dim strZielDateiname As String = "ctrl.txt"
    Dim intFehlernummer As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim strURL As String = "ftp://.../ctrl.txt"
        Dim strBK As String = "xxxxxx"
        Dim strPW As String = "xxxxxx"
 
        Try
            'Datei löschen, wenn bereits lokal vorhanden
            If File.Exists(strZielLaufwerk & strZielPfad & strZielDateiname) _
              Then
                File.Delete(strZielLaufwerk & strZielPfad & strZielDateiname)
            End If
            'Neue Datei herunterladen
            My.Computer.Network.DownloadFile(strURL, strZielLaufwerk & _
              strZielPfad & strZielDateiname, strBK, strPW)
        Catch ex As Exception
            If TestModus = 1 Then
                MessageBox.Show("ZFHS-0001: " & vbCrLf & ex.Message)
            End If
            intFehlernummer = 1
            Mail_Versenden("Control-Fehler", "Fehler beim Herunterladen des" & _
              "Control-Files." & vbCrLf & vbCrLf & ex.Message)
            Close()   'Hier soll das Programm beendet werden          
            End       'Hier soll das Programm beendet werden
        End Try
        Close()  ' zum Testen
...

    '**************************************************************************
    ' **************************************************************
    'Versenden einer eMail
    ' *************************************************************************
    ' **************************************************************
    Sub Mail_Versenden(ByVal strBetreff, ByVal strNachricht)
        Dim eMail As New MailMessage
        eMail.From = New MailAddress("xxxx@xxxx.ch", "ZFHS-Ueberwachung")
        eMail.To.Add("xxxx@xxxx.ch")
        eMail.Subject = strBetreff
        eMail.Body = strNachricht & vbCrLf & vbCrLf & _
                      "Automatische Mail aus der Paramter-Überwachung."
        Dim smtpSenden As New SmtpClient("smtp.xxxx.ch")
        smtpSenden.Port = xxxx
        smtpSenden.EnableSsl = False
        smtpSenden.Credentials = New System.Net.NetworkCredential( _
          "xxxx@xxxx.ch", "support-admin")
        smtpSenden.Send(eMail)
        TestModus = 0
        If TestModus = 1 Then
            MsgBox("Die eMail wurde versandt " & MsgBoxStyle.Information & "" & _
              "Wirklich ??")
        End If
    End Sub

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim test As String = "22"
        Close()
        test = "33*"
    End Sub
End Class