first commit

Form44.vb

@@ -0,0 +1,18 @@
+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