Public Class FrmVigenciaAlertas
    Private Sub btnCon_Click(sender As Object, e As EventArgs) Handles btnCon.Click
        Dim frm As frmVigenciaCon = New frmVigenciaCon(0)
        frm.Text = "Aviso de Vigencia de Alertas Con Transacción"
        frm.Show()
    End Sub

    Private Sub btnSin_Click(sender As Object, e As EventArgs) Handles btnSin.Click
        Dim frm As frmVigenciaCon = New frmVigenciaCon(1)
        frm.Text = "Aviso de Vigencia de Alertas Sin Transacción"
        frm.Show()
    End Sub
End Class