Dim psation As Integer = BindingContext(User_Show).Position If MsgBox("هل تريد فعلا حذف المستخدم", MsgBoxStyle.YesNo, "حذف المستخدم") = MsgBoxResult.Yes Then User_Table.Rows(psation).Delete()