Imports System.ComponentModel

Public Class upfilm3
    Public dl As Integer = 1
    Private Sub upfilm3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Form1.BackColor
    End Sub

    Private Sub upfilm3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If dl = 1 Then
            e.Cancel = True
            MsgBox("merci d'entendre le fin de la mis en ligne", MsgBoxStyle.Exclamation)
        Else

        End If
    End Sub
End Class