Dim CIERRATE As Boolean

    Private Sub Cerrar_Visible(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If CIERRATE = False Then
            e.Cancel = True
        End If
        Me.Visible = False
    End Sub

    Private Sub Abrir_DobleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.Visible = True
    End Sub

    Private Sub Cerrar_Menu_Desplegable(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
        CIERRATE = True
        End
    End Sub