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