Imports System.ComponentModel
Imports System.IO

Public Class Form44
    Dim fermeture As Integer = 0
    Private Sub Form44_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If fermeture = 0 Then
            Text = "avertisement"
            e.Cancel = True
            Label2.Text = "attention les fichier envoyer sur le comunautaire ne sont pas vérifier par l'êquipe d'Extrème downloaders, il peuvent contenir des fichiers malveillant"
            fermeture = 1
        Else
            Dim sw1 As New StreamWriter(startpage2)
            sw1.WriteLine(1)
            sw1.Close()
        End If
    End Sub
End Class