Private Sub DataList2_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList2.ItemDataBound
        '  For Each item As DataListItem In DataList2.Items
        Dim item As DataListItem
        Dim b As Button = CType(item.FindControl("Button3"), Button)
        If (Not b Is Nothing) Then
            If b.CommandArgument = Session.Item("iddocente") Then
                b.Visible = True
            End If
        End If
        '  Next
    End Sub