first commit

Form30.vb

@@ -0,0 +1,21 @@
+Imports System.ComponentModel
+
+Public Class Form30
+    Public dlform30 As Integer = 1
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub Form30_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub Form30_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If dlform30 = 1 Then
+            e.Cancel = True
+            MsgBox("merci de patianter....", MsgBoxStyle.Exclamation)
+        Else
+
+        End If
+    End Sub
+End Class