Private Sub lblIdFornRic_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblIdFornRic.TextChanged Dim Cambio As String = Me.lblIdFornRic.Text If Cambio = "SI" Then Call Me.Ric_Art_Forn() End If End Sub